HP SunSoft Pascal 4.0 Manual do Utilizador Página 222

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 333
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 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 página 221
1 2 ... 217 218 219 220 221 222 223 224 225 226 227 ... 332 333

Comentários a estes Manuais

Sem comentários