♦COMDECK PARAM 

 C 



PARAMETER ( 18=95, JQ=95) 



PARAMETER! 102=95, JQ2=95) 



PARAMETER <KQ=IQ»JQ) 

 C 

 ♦DECK MAIN 



PROGRAM SRID(TAPE1=TAPE1,TAPE2=TAPE2,TAPE3=TAPE3,TAPE4=TAPE4, 

 1TAPE6=TAPE6,TAPE7=TAPE7> 

 ♦CALL PARAM 



o**t •*••*••**•**•*••*••**••*•*•••••••*••«••*••*•*•«•**•«*• 



c 



C DOCUMENTATION 



C 



(>*♦****♦♦*♦♦♦♦♦♦*♦♦♦♦♦♦♦♦**♦**♦♦♦♦***♦♦♦♦♦♦♦♦♦♦*♦*♦♦*****♦ 



c 



C THIS PROGRAM PROVIDES A METHOD FOR INTERPOLATING BATHYMETRY 



C FROM ONE GRID TO ANOTHER. THE NEW GRID 0RI6IN CAN BE 



C TRANSLATED AND/OR ROTATED RELATIVE TO THE OLD SRID 0RI6IN 



C 



Ot*****m*t*f Mm*************************************** 



C 



C INPUT DATA (TAPE7) 



C 



(>•*(••••***•***•••*••»♦•••••••****•**•***•*•*•••*•***•**• 



C 



C READ(7,500) M,N,M2,N2,ANG,XSHIFT,YSHIFT 



C 500 FORMAT(4I5,3F10.5) 



C 



C H= NUMBER OF SRID CELLS IN THE X-DIRECTION ON THE OLD 6RID 



C N= NUMBER OF GRID CELLS IN THE Y-DIRECTION ON THE OLD GRID 



C N2= NUMBER OF GRID CELLS IN THE X-DIRECTION ON THE NEW GRID 



C N2= NUMBER OF GRID CELLS IN THE Y-DIRECTION ON THE NEW GRID 



C 



C AN6=THE ANGLE OF ROTATION MEASURED 



C FROM THE OLD GRID TO THE NEW GRID 



C +COUNTER-CLOCKMISE 



C -CLOCKWISE 



C 



C XSHIFT=THE X OFFSET FROM THE OLD GRID TO THE NEW GRID 



C * NEW GRID ORIGIN IS BELOW THE OLD ORIGIN 



C - NEW SRID ORIGIN IS ABOVE THE OLD ORIGIN 



C YSHIFT=THE Y OFFSET FORM THE OLD GRID TO THE NEW GRID 



C + NEW GRID ORIGIN IS TQ THE RIGHT OF THE OLD ORIGIN 



C - NEW SRID ORIGIN IS TO THE LEFT OF THE OLD ORIGIN 



C 



C***» 



c 



C READ (7, 505) GRDTYP1,6RDTYP2 



C 505 FORMAT (215) 



C 



C GRDTYP1=0LD GRID TYPE 



C = CONSTANT SIZED, RECTILINEAR 



12 



PARAM 



1 



PARAM 



2 



PARAM 



3 



PARAM 



4 



PARAM 



5 



PARAM 



6 



MAIN 



1 



MAIN 



2 



MAIN 



3 



MAIN 



4 



MAIN 



5 



MAIN 



6 



MAIN 



7 



MAIN 



8 



MAIN 



9 



MAIN 



10 



MAIN 



11 



MAIN 



12 



MAIN 



13 



MAIN 



14 



MAIN 



15 



MAIN 



16 



MAIN 



17 



MAIN 



18 



MAIN 



19 



MAIN 



20 



MAIN 



21 



MAIN 



22 



MAIN 



23 



MAIN 



24 



MAIN 



25 



MAIN 



26 



MAIN 



27 



MAIN 



28 



MAIN 



29 



MAIN 



30 



MAIN 



31 



MAIN 



32 



MAIN 



33 



MAIN 



34 



MAIN 



35 



MAIN 



36 



MAIN 



37 



MAIN 



38 



MAIN 



39 



MAIN 



40 



MAIN 



41 



MAIN 



42 



MAIN 



43 



MAIN 



44 



MAIN 



45 



MAIN 



46 



MAIN 



47 



