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

               SUBROUTINE READCMASK

  READCMASK READS A STRUCTURE OUT TO FILE.  THE STRUCTURE
  CONTAINS AN INTEGER AND A CHARACTER ARRAY (15 LETTERS MAX).

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

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

 DEFINE CINFO AS A STRUCTURE WITH AN INTEGER AND A 15
 LETTER CHARACTER.

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

struct write2c cinfo;

readcmask_(

 int *jj,                 /* PROFILE NUMBER */

 char *carray,            /* CHARACTER ARRAY TO BE WRITTEN OUT */

 int *ifn,                /* FILE IDENTIFICATION NUMBER */

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

           )

{

 fread(&cinfo, sizeof( struct write2c ), 1, fp[*ifn]);

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

  *jj = cinfo.num;
  strcpy( carray, cinfo.carr );

 }

 else *iend = 1;

}