FUNCTION GZDE(P0,TJ,TP,TN) C GASDRUCK ZWISCHEN DEN ELEKTRODEN C IN ABHAENGIGKEIT VON DER ZEIT TJ C P0 = NORMALER GASDRUCK [PA] C TJ = ZEIT SEIT BEGINN [S] C TP = ZEITPUNKT DES DURCHSCHLAGS [S] C TN = "TIME CONSTANT OF DECAY" (FUNCTION DTC) C FORTRAN II GZDE=P0*(1.-1./EXP((TJ-TP)/TN)) RETURN END