HP SunSoft Pascal 4.0 Instrukcja Użytkownika Strona 222

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 333
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 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
Przeglądanie stron 221
1 2 ... 217 218 219 220 221 222 223 224 225 226 227 ... 332 333

Komentarze do niniejszej Instrukcji

Brak uwag