subroutine VXNPNT (wave,nptchn,rymax,rymin) c c Modified version of MXNPNT to suit the new version c of WAPLOT (WAPLOV). c c the subroutine finds the maximum and minimum values c of the array wave which contains 'npnt' points of data. c virtual wave (8,1281) dimension rymax(8),rymin(8),nptchn(8) c do 100, j=1,8 if ( nptchn(j).eq.0 ) go to 50 npoint=nptchn(j) rymax(j)= wave (j,1) rymin(j)= wave (j,1) do 10, k=1,npoint if ( wave(j,k) .gt. rymax(j) ) rymax(j)=wave(j,k) if ( wave(j,k) .lt. rymin(j) ) rymin(j)=wave(j,k) 10 continue go to 90 50 rymax(j)=0. rymin(j)=0. 90 continue 100 continue d type *,' rymax=', (rymax(i),i=1,8) d type *,' rymin=', (rymin(n),n=1,8) return end