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

                  SUBROUTINE WRITETOMASK4

 WRITETOMASK4 WRITES A THREE INTEGER STRUCTURE OUT TO A
 MASK FILE.

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

writetomask4_(

 int *jj,              /* PROFILE HEADER RECORD NUMBER */

 int *counter,         /* COUNTS NUMBER OF PROFILES ADDED TO MASK */

 int *fn,              /* MASK FILE IDENTIFICATION NUMBER */

 int *jj2,             /* SECOND PARAMETER TO WRITE OUT */

 int *isecond,         /* THIRD PARAMETER TO WRITE OUT */
 
 int *ithird           /* FOURTH PARAMETER TO WRITE OUT */

          )

{

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

 MAKE INP4I A WRITE4 STRUCTURE, WHICH IS A STRUCTURE OF TWO 
 INTEGERS. NUM WILL BE THE FIRST INTEGER, REC THE SECOND,
 GEO THE THIRD.

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

 struct write4 inp4i;

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

 SET THE SECOND INTERGER TO *ISECOND, THE FIRST TO *JJ,
 THE THIRD TO *ITHIRD.

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

 inp4i.num = *jj;
 inp4i.num2 = *jj2;
 inp4i.rec = *isecond;
 inp4i.geo = *ithird;

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

 WRITE THE STRUCTURE OUT TO FILE.
 ADD ONE TO COUNTER.

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

 fwrite( &inp4i, sizeof( struct write4 ), 1, fp[*fn] );

 *counter +=1;

}