c  For character-by-character input of GTSPP files in MEDS-ASCII format.

	integer   NOS_MAX,NSEG_MAX,NDP_MAX

	parameter (NOS_MAX=100,NSEG_MAX=30,NDP_MAX=1500)

	character*1 Stream_source,Uflag,Q_Pos,Q_Date_Time,Q_Record,
     &		Data_Avail,Dup_flag(NSEG_MAX),Digit_Code(NSEG_MAX),
     &		Standard(NSEG_MAX),Q_Parm(NSEG_MAX),SRFC_Q_Parm(NSEG_MAX),
     &		D_P_Code(NSEG_MAX),Depres_Q(NSEG_MAX,NDP_MAX),
     &		Prof_Q_Parm(NSEG_MAX,NDP_MAX)

	character*2  Obs_Month,Obs_day,Data_Type,A_No_Prof,A_Nparms,A_Nsurfc,
     &		A_No_Seg(NSEG_MAX),Ident_Code(NOS_MAX),Act_Code(NOS_MAX),
     &		Profile_Seg(NSEG_MAX)

	character*3  A_Num_Hists

	character*4  Obs_Year,Obs_Time,Source_ID,Stream_Ident,QC_Version,
     &		Prof_Type(NSEG_MAX),Pcode(NSEG_MAX),SRFC_Code(NSEG_MAX),
     &		PRC_Code(NOS_MAX),Version(NOS_MAX),Act_Parm(NOS_MAX),
     &		Profile_Type(NSEG_MAX),A_No_depths(NSEG_MAX)

	character*5  Deep_Depth(NSEG_MAX)

	character*6  Bul_Header,A_Depth_Press(NSEG_MAX,NDP_MAX)

	character*8  MKy,One_deg_sq,MEDS_Sta,A_Latitude,Up_Date,
     &		PRC_Date(NOS_MAX),Aux_ID(NOS_MAX)

	character*9  A_Longitude,A_Prof_Parm(NSEG_MAX,NDP_MAX)

	character*10  Cruise_ID,Parm(NSEG_MAX),SRFC_Parm(NSEG_MAX),
     &		Previous_Val(NOS_MAX)

	character*12  Iumsgno,Bul_time

	integer  nos_seg,No_Prof,Nparms,Nsurfc,Num_Hists
	integer  No_Depths(NSEG_MAX),No_Seg(NSEG_MAX)

	real  Latitude,Longitude,Depth_Press(NSEG_MAX,NDP_MAX)
	real  Prof_Parm(NSEG_MAX,NDP_MAX)

	common / ocean_nos / Nos_Seg

	common / oceanstn /
     &    Latitude, Longitude, 
     &    No_Prof, NParms, Nsurfc, Num_Hists, No_Seg,
     &    Parm, Aux_ID, Previous_Val,
     &    One_Deg_Sq, PRC_Date, MEDS_Sta,
     &	  Deep_Depth,
     &    Cruise_ID, Obs_Year, Obs_Month, Obs_Day, Obs_Time,Data_Type,
     &    Q_Pos, Q_Date_Time, Q_Record, Up_date, Bul_Time, Bul_Header,
     &    Source_ID, Stream_Ident, QC_Version, Data_Avail,
     &    Prof_Type, Dup_Flag, Digit_Code,
     &    Standard, Pcode, Q_Parm,
     &    SRFC_Code, SRFC_Parm,
     &    SRFC_Q_Parm,Ident_Code,
     &    PRC_Code, Version, Act_Code,
     &    Act_Parm

	common / oceanprf / 
     &    Depth_Press, Prof_parm,
     &    No_Depths, Profile_Type,
     &    Profile_Seg, D_P_Code,
     &    Prof_Q_Parm, Depres_Q

	common /extras / Mky,Iumsgno,Stream_Source,Uflag
	common /extras2 / A_Latitude,A_Longitude,A_Num_Hists,A_No_Prof,
     &	  A_Nparms,A_Nsurfc,A_No_Seg,A_No_Depths,A_Depth_Press,
     &    A_Prof_Parm

c                      MEDS Character Format                      2/4/93
c
c                       Master Record
c
c     Field                  Field                    Starting
c     Name                   Size                     Position

c     Mky                   char*08                     01
c     One_deg_sq             char*08                     09
c     Cruise_ID              char*10                     17
c     Obs_Year               char*04                     27
c     Obs_Month              char*02                     31
c     Obs_Day                char*02                     33
c     Obs_Time               char*04                     35
c     Data_Type              char*02                     39
c     Iumsgno                char*12                     41
c     Stream_Source          char*01                     53
c     Uflag                  char*01                     54
c     MEDS_Sta               char*08                     55
c     Latitude               char*08                     63
c     Longitude              char*09                     71
c     Q_Pos                  char*01                     80
c     Q_Date_Time            char*01                     81
c     Q_Record               char*01                     82
c    Up_Date                char*08                     83
c     Bul_Time               char*12                     91
c     Bul_Header             char*06                    103
c     Source_ID              char*04                    109
c     Stream_Ident           char*04                    113 
c     QC_Version             char*04                    117
c     Data_Avail             char*01                    121
c     No_Prof                char*02                    122
c     Nparms                 char*02                    124
c     Nsurfc                 char*02                    126
c     Num_Hists              char*03                    128


c         Profile Information; repeats No_prof (1-30) times

c     No_Seg                 char*02                     01
c     Prof_Type              char*04                     03
c     Dup_flag               char*01                     07
c     Digit_Code             char*01                     08
c     Standard               char*01                     09
c    Deep_Depth             char*05                     10


c         Surface Parameter Group; repeats Nparms (0-30) times
	                                                         
c     Pcode                  char*04                     01    
c     Parm                   char*10                     05
c     Q_Parm                 char*01                     15


c         Surface Codes Group; repeats Nsurfc (0-30) times

c     SRFC_Code              char*04                     01
c     SRFC_Parm              char*10                     05
c     SRFC_Q_Parm            char*01                     15


c         History Group; repeats Num_Hists (0-100) times

c     Ident_Code             char*02                     01
c     PRC_Code               char*04                     03
c     Version                char*04                     07
c     PRC_Date               char*08                     11
c     Act_Code               char*02                     19
c     Act_Parm               char*04                     21
c     Aux_ID                 char*08                     25
c     Previous_Val           char*10                     33

c                         Profile Record

c     Mky                   char*08                     01
c     One_Deg_Sq             char*08                     09
c     Cruise_ID              char*10                     17
c     Obs_Year               char*04                     27
c     Obs_Month              char*02                     31
c     Obs_Day                char*02                     33
c     Obs_time               char*04                     35
c     Data_Type              char*02                     39
c     Iumsgno                char*12                     41
c     Profile_Type           char*04                     53
c     Profile_Seg            char*02                     57
c     No_Depths              char*04                     59
c     D_P_Code               char*01                     63

c                Parameter Group; occurs No_Depth (1-1500) times

c     Depth_Press            char*06                     01
c     Depres_Q               char*01                     07
c     Prof_Parm              char*09                     08
c     Prof_Q_Parm            char*01                     17


c	SRFC_CODE = DBID
c	SRFC_PARM = Station_num (NODC Unique Identifier)
c	SRFC_CODE = GCLL
c	SRFC_PARM = the value or the Callsign (Delayed mode data only)
c	SRFC_CODE = PLAT
c	SRFC_PARM = the value of the Shipcode


