A71700 SCP1700 - Das ist die Eingangsseite, an der noch keiner ...
A71700 SCP1700 - Das ist die Eingangsseite, an der noch keiner ...
A71700 SCP1700 - Das ist die Eingangsseite, an der noch keiner ...
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
FORTRAN77 Sprachbaschreibung SCP 1700 1/87<br />
Anlage 21 St<strong>an</strong>dardfunktionen (Teil 3)<br />
+-------~-+----------+----+-----+-----+------+---------+---------+<br />
! t ! IAn-! 1 I !<br />
!St<strong>an</strong>dard-1Beschrei- IBe- lzahl IGene-ISpezi-1 Datentyp !<br />
IPunktion Ibung Imer-ld.Pa-!,d- leller !--------_·----------I<br />
I 1 Ikunglra- !scherlName !PararneterIPunktion!<br />
I 1 ! IrnehrlName! I 1<br />
+---------+----------+----+-----+-----+------+---------+---------+<br />
1 ! I 1 -' I ! I<br />
IDivisions!a1-int(al/1 2 !MOD I - IINTEGER*2IINTEGER*2!<br />
trest I a2)*a21 I IMOD I INTEGER !INTEGER<br />
I !! !AMOD !REAL !REAL<br />
I I DMOD ! DOUBLE ! DOUDLE<br />
I I I<br />
~---------+---- ----+----+-----+-----+------+---------+---------+<br />
I I I I !<br />
IVorzei- IIa11, ! 2 IS1GN! - !INTEGER*2IINTEGER*2!<br />
I ehen- Iwenn a2>=01 lISIGN !INTEGER !IN'rEGER<br />
!Obertra- !-!a1 I, I !SIGN !REAL lREAL<br />
Igung Iwenn a2a2 ! 11DIM I INTEGER !INTEGER !<br />
10, Wenn ! !DIM !REAL !REAL<br />
I a J =2 IMAX ! - !INTEGER*2!INTEGER*2!<br />
I (a 1 •.• <strong>an</strong>) ! IMAXO I INTEGER ! INTEGER !<br />
I ! AMAXl I REAL ! REAL<br />
I I DMAx 1 !DOUBLE lDOUBLE !<br />
!--------------------------!<br />
I ! AMAXO ! INTEGER ! REAL !<br />
! IMAX1' !REAL ! INTEGER !<br />
! ! !! !<br />
+---------+----------+----+-----+-----+------+---------+---------+<br />
154 C 1016-0200-2 M 3030