File: TEMPB1.FT of Disk: Disks/MyPDP/m8-backup-rka1-rkb1
(Source file text)
SUBROUTINE TEMPB1 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 C TV=SQRT(TV/FLOAT(NP-1)) PV=SQRT(PV/FLOAT(NP-1)) IF(.NOT.VAPRE) GOTO 100 WRITE(ITERM,2000) READ(ITERM,1000) PM PM=PM*.75006 100 WRITE(ITERM,2001) WRITE(ITERM,2002) TM,TV WRITE(ITERM,2003) PM,PV WRITE(ITERM,2004) READ(ITERM,1000) T1 WRITE(ITERM,2005) READ(ITERM,1000) P1 WRITE(ITERM,2006) READ(ITERM,1000) T2 WRITE(ITERM,2007) READ(ITERM,1000) P2 TP=(T2-T1)/(P2-P1) TMEAN=T1+(PM-P1)*TP TVAR=PV*TP IF(VAPRE) TVAR=TV*1.25 WRITE(ITERM,2008) TMEAN,TVAR WRITE(ITERM,2009) READ(ITERM,1001) YES IF(.NOT.YES) GOTO 100 C RETURN C 1000 FORMAT (F8.4) 1001 FORMAT (L1) C 2000 FORMAT (/1X,'VAPOUR PRESSURE PM [mbar]:',T70,$) 2001 FORMAT (/1X,'SAMPLE TEMPERATURE:') 2002 FORMAT (T5,'SrTiO3',T40,'TM =',F8.4,' [V]'/ $ T40,'TV =+-',F6.4,' [V]') 2003 FORMAT (/T5,'VAPOUR PRESSURE',T40,'PM =',F8.4,' [Torr]'/ $ T40,'PV =+-',F6.4,' [Torr]') 2004 FORMAT (T8,'INTERPOLATION p(T):'/T11,'T1 [K]:',T70,$) 2005 FORMAT (T11,'p1 [Torr]:',T70,$) 2006 FORMAT (T11,'T2 [K]:',T70,$) 2007 FORMAT (T11,'p2 [Torr]:',T70,$) 2008 FORMAT (/T5,'VAPOUR PRESSURE',T40,'TMEAN=',F8.4,' [K]'/ $ T40,'TVAR =+-',F6.4,' [K]') 2009 FORMAT (/1X,'SAMPLE TEMPERATURE OK ? (T OR F)',T70,$) C END