/***********************************************************

               SUBROUTINE READC2MASK

  READC2MASK READS A STRUCTURE OUT TO FILE.  THE STRUCTURE
  CONTAINS TWO CHARACTER ARRAYS OF 5 AND 80 CHARACTERS
  RESPECTIVELY.

************************************************************/

/***********************************************************

 DEFINE CINFO2 AS A WRITE2C2 STRUCTURE WITH TWO CHARACTER
 VARIABLES OF 5 AND 80 CHARACTERS. 

************************************************************/

struct write2c2 cinfo2;

readc2mask_(

 char *carray1,           /* FIRST CHARACTER ARRAY TO BE READ IN */

 char *carray2,           /* SECOND CHARACTER ARRAY TO BE READ IN */

 int *ifn,                /* FILE IDENTIFICATION NUMBER */

 int *iend                /* SET TO ONE IF END OF FILE IS 
                             ENCOUNTERED */

           )

{

 fread(&cinfo2, sizeof( struct write2c2 ), 1, fp[*ifn]);
 /* printf("read1\n");*/

 if ( !feof( fp[*ifn] ) ) {

  strcpy( carray1, cinfo2.carr1 );
/*  printf("carr %s\n",carray1);*/
  strcpy( carray2, cinfo2.carr2 );
/*  printf("carr %s\n",carray2);*/

 }

 else *iend = 1;

}