DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »fortraninp«

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »fortraninp« 

TextFile

(
fortranflyt=typeset
global fortranflyt
;c=copy fortranflyt
)
*pl 297,18,250,4,3**pn 0,0*
*lw 185**ps 0**sj*
H. C. Ørsted Institute
Computer Department
Universitetsparken 5
DK-2100 København Ø
Anders Lindgård
*nl2*
*ct*
HCØ RC8000 FORTRAN
FLYTNING AF PROGRAMMER TIL RC8000
1982.01.08
*nl1*
"fortranflyt"
*rj*
*ps0*
*ns 1,3,Overflytning af FORTRAN programmer.*
        -----------------------------------*nl**np*
Denne lille beskrivelse er blevet lavet  ud fra de erfaringer
jeg selv har haft med at overflytte relativt store FORTRAN
programmer til RC8000. For en trænet programmør er det
arehbejde der skal investeres af størrelsesordenen 1-2 arbejdsdage
for et 1000-2000 liniers program forudsat at der er tale
om et program der ikke afviger væsentligt fra standard
FORTRAN IV.
*nl2*
*lm 20*
*mt 1,1.*COMMON blokke skal være lige store i alle
underprogrammer. Ved kalde fortran med "survey.yes" får
man størrelsen af COMMOM blokkene at vide.
*nl*
*mt 1,2.* Normalt er dobbelt præsicion overflødig da
enkelt præsicion på RC8000 er 11-12 cifre. Man bør
fjerne:*sj*
    1. erklæringer
    2. kald af dobbelt præcisionsfunktion ændres til
       enkeltpræsicion.
    3. dobbelt præsicion i FORMAT.
    4. dobbelt præsicions konstanter ændres til enkelt.
    5. DATA skal også laves til enkeltpræsicion
*rj*
*nl*
*mt 1,3.*En subroutine eller function må ikke hedde
         DATA eller et andet navn som er et FORTRAN
         symbol.
*nl*
*mt 1,4.* BLOCK DATA eksisterer ikke. Se FORTRAN manual
*nl*
*mt 1,5.* I DO løkker starter man ikke med 1 når den
nedre grænse er nul eller negativ.
*nl*
*mt 1,6.* Variable initialiseres ikke til nul (0).
Det må man selv gøre.
*nl*
*mt 1,7.*IMPLICIT REAL skal væk
*nl*
*mt 1,8.* Kun unit 5 og 6 kendes direkte. For andre
units må man:*sj*
    1. erklære en zone
    2. procedure ZASSIGN(zone,unitnumber) må kaldes.
    3. procedure OPEN må kaldes for at forbinde
       en fil til zonen.
*rj**nl*
Eksempel:*nl**sj*
     zone U9(128,1,STDERROR)
     .
     .
     call ZASSIGN(U9,9)
     call OPEN(U9,4,'file1',0)
*nl2**lm 0*
God fornøjelse
*ef*
▶EOF◀