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

               SUBROUTINE WRITECMASK

  WRITECMASK WRITES 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;

writecmask_(

 int *jj,                 /* PROFILE NUMBER */

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

 int *ifn                 /* FILE IDENTIFICATION NUMBER */

           )

{

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

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

}