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

                  SUBROUTINE WRITETOMASK3

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

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

writetomask3_(

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

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

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

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

          )

{

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

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

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

 struct write3 inp3;

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

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

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

 inp3.rec = *isecond;
 inp3.num = *jj;
 inp3.geo = *ithird;

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

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

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

 fwrite( &inp3, sizeof( struct write3 ), 1, fp[*fn] );

 *counter +=1;

}