home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ARM Club 3
/
TheARMClub_PDCD3.iso
/
hensa
/
chemistry
/
ortep_1
/
Changes
next >
Wrap
Text File
|
1996-05-20
|
2KB
|
50 lines
Changes to be made to the ORNL source of ORTEPIII
to get it to run with PGPLOT on the Acorn range of micros.
K.M.Crennell 19 May 1996
1. Change the dummy PGPLOT subroutines
INITSC, PENWSC, COLRSC, PENSC, ENDSC
for the real ones towards the end of the source.
2. remove all the INTEGER *2
3. separate the character variables from the others into their own COMMON
a)blank COMMON
CHARACTER*4 TITLE,TITLE2
COMMON/UNC/TITLE(18),TITLE2(18)
b)COMMON /QUEUE/
CHARACTER*73 INQ,QUE,hque
COMMON /QUEUEC/INQ,QUE(96),hque(96)
c)COMMON/PARMS
CHARACTER*8 CHEM
COMMON /PARMSC/CHEM(505)
4. Routine SIMBOL has >19 continuation lines which have to be split into 4
data statements
5. Routine DFLTS assumes filenames can have . in them as a file suffix
edit them out, also in routines UINPUT, F200, INITHP, INITPS
6. BACKSPACE not available, change to REWIND
7. call to PGBEG changed to pgbeg(0,'?',1,1) from pgbeg(0,' ',1,1)
8. added call to OSCLI in UINPUT to show user contents of the Data directory
9. May need to change default screen sizes in routine CURSSC
and add 3 lines
CHARACTER *3 RES
C *** if no cursor on this device just return
CALL PGQINF('CURSOR',RES,LEN)
IF(RES.EQ.'NO ')RETURN
10. add call to PGQINF to routine INITSC to set flag whether drawing on screen
or hardcopy
CALL PGQINF('TERMINAL',ANS)
C set flag for drawing to screen
IF(ANS.EQ.'YES')NDRAW=1