File: OUTB1.FT of Tape: Various/Disk-backup/dsk10
(Source file text)
SUBROUTINE OUTB1 COMMON/TITLE/FNAME(6),MOTODI,IRUN COMMON/SAMPLE/SPL,SPA,SPV,HANG COMMON/FIELD/NP,HHI,HLO,DRHE3,DRH,DELDRH,VIND,IMIN,ISEC COMMON/PARAM/PS(2),PT(2),PF(2),CALI(2) COMMON/TEMP/TMEAN,TVAR,PM,PV,TM,TV,TSET,DELTP,DELTI,VAPRE C LOGICAL VAPRE,YES C ITERM=4 IFILE=6 C IVAR=20 DITO=1. SHIFT=.0 PERMAS=.0 WRITE(IFILE,3000) IVAR,DRHE3,HANG,HHI,HLO, $ PF(2),PS(2),PT(2),DITO, $ TMEAN,TVAR,SHIFT,PERMAS,CALI(2), $ SPL,SPV,PM,PV,TM,TV,SHIFT C ENDFILE IFILE IERR=0 CALL USR3(IFILE,FNAME,4,IERR) IF(IERR.NE.0) GOTO 900 C WRITE(ITERM,2000) FNAME(3),FNAME(4) C RETURN C 900 IERR=-IERR WRITE(ITERM,2900) IERR STOP C 2000 FORMAT (/1X,2A3,61('-'),T70,'FINISHED') C 2900 FORMAT (1X,'SUBROUTINE USR3:',T40,'IERR =',4X,I4) C 3000 FORMAT (I2,20(/E13.6)) C END