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

                  SUBROUTINE WRITETOMASK2

 WRITETOMASK2 WRITES A TWO INTEGER STRUCTURE OUT TO A
 MASK FILE.

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

writetomask2_(

 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 */

          )

{

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

 MAKE INP A WRITE2 STRUCTURE, WHICH IS A STRUCTURE OF TWO 
 INTEGERS. NUM WILL BE THE FIRST INTEGER, REC THE SECOND.

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

 struct write2 inp;

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

 SET THE SECOND INTERGER TO *ISECOND, THE FIRST TO *JJ

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

 inp.rec = *isecond;
 inp.num = *jj;

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

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

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

 fwrite( &inp, sizeof( struct write2 ), 1, fp[*fn] );

 *counter +=1;



}