File: EX1FNV.FT of Tape: Various/ETH/eth11-3

(Source file text) 

---

	DIMENSION INPUT(256),OUTPUT(7,3),EMU(6),SIGMA(6),SIZE(6)
	DIMENSION ITABLE(51),VTYPE(3,2)

	DATA VTYPE/'    ','  VA','LLEY','   T','HRES','HOLD'/

	DATA EMU/20.,75.,200.,500.,600.,900./
	DATA SIGMA/20.,10.,75.,30.,35.,100./
	DATA SIZE/500.,100.,200.,800.,700.,300./
	DATA IT,IC,X/300,0,0./

	DATA ITABLE/0,3,0,1,47*0/
	DATA J,INPTR,IDIMO,NPEAKS/0,0,3,0/

	DO 3 I=1,1024
	A=0.
	X=X+1.
	DO 2 JJ=1,6
    2	A=A+SIZE(JJ)*EXP(-.5*((X-EMU(JJ))/SIGMA(JJ))**2)

	IF(A.LE.IT) GO TO 4
	IF(IC.EQ.0) GO TO 6
	J=J+1
	INPUT(J)=IC
	ASSIGN 21 TO IRET
	GO TO 30
   21	J=J+1
	INPUT(J)=0
	ASSIGN 22 TO IRET
	GO TO 30
   22	IC=0
    6	J=J+1
	IF(I.NE.1) GO TO 7
	INPUT(1)=0
	INPUT(2)=0
	J=3
    7	INPUT(J)=A
	ASSIGN 3 TO IRET
	GO TO 30
    4	IF(J.EQ.0.OR.IC.NE.0) GO TO 20
	J=J+1
	INPUT(J)=0
	ASSIGN 20 TO IRET
	GO TO 30
   20	IC=IC+1
    3	CONTINUE
	IF(J.EQ.0) GO TO 10
	ASSIGN 10 TO IRET

   30	IF(J.NE.256.AND.I.LT.1024) GO TO IRET
	CALL NVELOP(ITABLE,INPUT,J,INPTR,OUTPUT,IDIMO,NPEAKS)
	J=0
	GO TO IRET

   10	TYPE 1002
1002	FORMAT(1H1,'PEAK NO.',8X,'TYPE',8X,'AREA',4X,'CENTROID',5X,
     1	'P WIDTH',/,15X,'P TIME',4X,'P HEIGHT',3X,'LEAD TIME')
	DO 11 L=1,NPEAKS
	KK=1+OUTPUT(1,L)
   11	TYPE 1003,L,(VTYPE(K,KK),K=1,3),(OUTPUT(I,L),I=2,7)
 1003	FORMAT(I9,3A4,3F12.0,/,9X,3F12.0)
 	END

---