HP SunSoft Pascal 4.0 Manual de usuario Pagina 222

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 333
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 221
198 Pascal 4.0 Users Guide
8
Simple Types
With external fortran, the procedure name in the procedure statement
and in the call must be in lowercase, with no underscore (_).
The FORTRAN subroutine,
SimVal.f
subroutine SimVal( t, f, c, i, d, s, reply )
logical*1 t, f
character c
integer*4 i
double precision d
integer*2 s
integer*4 reply
reply = 0
if ( t ) reply = reply + 1
if ( .not. f ) reply = reply + 8
if ( c .eq. 'z' ) reply = reply + 64
if ( i .eq. 9 ) reply = reply + 512
if ( d .eq. 9.9 ) reply = reply + 4096
if ( s .eq. 9 ) reply = reply + 32768
return
end
Vista de pagina 221
1 2 ... 217 218 219 220 221 222 223 224 225 226 227 ... 332 333

Comentarios a estos manuales

Sin comentarios