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

                 SUBROUTINE WRITETOMASK

 WRITETOMASK WRITES A PROFILE RECORD NUMBER OUT TO A MASK FILE.

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

writetomask_(

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

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

 int *fn               /* MASK FILE IDENTIFICATION NUMBER */

          )

{

 fwrite( jj, sizeof( int ), 1, fp[*fn] );

 *counter +=1;
/*  printf(" %d %d %d %d\n",*jj,*counter,*fn,ftell(fp[*fn])/sizeof(int));
*/
 

}