subroutine VXYPNT (wave,nptchn,rymax,rymin) c c is VXNPNT modified for LAPLXY, which is the version of LAPLV c for use with XYPLOT. c c VXNPNT is a modified version of MXNPNT to suit the versions c of WAPLOT (WAPLOV, LAPLOV, LAPLV) incorporating virtual arrays. c c the subroutine finds the maximum and minimum values c of the array wave which contains 'npnt' points of data. c virtual wave (32,321) dimension rymax(32),rymin(32),nptchn(32) c do 100, j=1,32 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,32) d type *,' rymin=', (rymin(n),n=1,32) return end