linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compiled under Redhat Linux<Right

Browse Source
This commit is contained in:
cvs
2000-02-18 15:54:23 +00:00
parent b9529f1cfd
commit cbc7fdf334
48 changed files with 160 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
difrac/goloop.f
View File

@@ -425,9 +425,9 @@ C------- modified: MK --> IO to SICS instead of LPT
RETURN
ENDIF
10000 FORMAT (3I4,' Scan Collision in GOLOOP')
11000 FORMAT (10X,A1'-stop. Restart at'/
11000 FORMAT (10X,A1,'-stop. Restart at'/
$ 3I4,', number',I5,' in set',I3,' segment',I2,
$ ' at Idata Record',I4)
12000 FORMAT (10X'End of Segment. Start next data at Record',I4)
13000 FORMAT (10X'End of Data Collection ---- HURRAY !!')
12000 FORMAT (10X,'End of Segment. Start next data at Record',I4)
13000 FORMAT (10X,'End of Data Collection ---- HURRAY !!')
END