FnWTRAN TO ALGOL TRANSLATOR 

 PHASE 1 FORTRAN STATEMENTS 



SUBROUTINE GPHPVW(L»ID.ZLOGP,ZLOGViZLOGW) 

 SPECIAL FORM OF GPHPVW FOR 13350-2 AUGUST 1967 

 DIMENSION ZL0GP(?),ZL0GVC2)»ZL0GW(2)»ID(2) 



CALL PLOTCO.O,0.0»3) 

 CALL t*LOT (0.0>10.'S#2) 

 CALL PLOT (6.0»10.S#2) 

 CALL PLOT (6.0/0.0,?) 



CALL Plot co.O/O.c?) 



CALL PLOT (2.0*1.5,-3) 



CALL SYMBOL C , . - 1 . 0, - . 1 > I C D * . » 66 ) 



CALL AXIS C0.0,0.0,20HNQRMALIZE0 FREQlJENCf , -20,5 . , . 0, . 0,0 . 2 ) 



7MAX=ZL0GPC1) 



DO 10 I=2'L 

 COMPAK = ZLOGP(n 

 10 ZMAX=MAX1F(ZMAX,C0MPAR) 



MAX=7HAX+3.0 



F)E = MAX-8 



CALL AXISCO.O»O.OM7HLOG POWER OENSI TY> 17» 8- 0# 90- 0» BE, 1 . 0) 



0X=5.0/FL0ATF(L-1 ) 



Y=ZL0GPC1)-BE 



X = 0.0 



CALL PL0T(X,Y,3) 



B-H 



