C                                                           
C         STORAGE PARAMETERS:                               
C IPY = MAX. # OF NODES IN THE Y-DIRECTION.                 
C IPZ = MAX. # OF NODES IN THE Z-DIRECTION.                 
C NOTE IPZ > NODEZ+10 FOR AIR IN TE.                        
C MTSO - MAX. NO. OF MT SOUNDINGS TO BE INVERTED (<=IPY).   
C MFR = MAX. # OF FREQUENCIES.                              
C MPIA - MAX. NO. OF PARAMETER MEDIA FOR INVERSION.         
C MMD - MAX. NO. OF MT DATA SUBSETS USED IN INVERSION.      
C       (=6 IF.BOTH MODES PLUS VERTICAL FIELD CONSIDERED)   
C NL - MAX. NO. OF LAYERS AT LEFT/RIGHT SIDE OF MESH FOR    
C      PRIMARY FIELD CALCULATIONS.                          
C MLB - MAX. NO. OF POLYGONAL MEDIA FOR FORWARD PROBLEM.    
      LOGICAL RGT                                           
      PARAMETER (RGT=.TRUE.)                                
      INTEGER IPY,IPZ,IP2,IP3,MTSO,MFR,MPIA,MMD             
      INTEGER MAM,NL,NL1,MLB                                
      PARAMETER (IPY=118)                                   
      PARAMETER (IPZ=124)                                   
      PARAMETER (MTSO=25)                                   
      PARAMETER (MFR=38)                                    
      PARAMETER (MPIA=3827)                                 
      PARAMETER (MMD=6)                                     
      PARAMETER (IP2=IPZ*IPY,IP3=IPZ+2)                     
      PARAMETER (MAM=MTSO*MMD)                              
      PARAMETER (NL=IPZ,NL1=NL-1,MLB=62)                    
      PARAMETER (MXLLDA=1024)                               
