ID#:            C00596MFMWS00
Transmitted on one                   RSIC #:         CCC-596
DS/HD (1.2MB) diskette.              CODE PKG NAME:  TERFOC-N
                                     COMPUTER:       FACOM M-380, M-780
                                                     Sun SPARCstation
                                     PACKAGED:       10/10/91
                                     RECENT UPDATE:

***********************************************************************
Description        Number of bytes
***********************************************************************

Note:  All files are in ASCII.

1.  TFCAGR   DAT    25184  - Unit 13 input; annual production for crops
                             and animal products in each segment.
2.  REPRO    DAT   144638  - Unit 14 input; ground level concentration
                             in air and deposition rate to the ground
                             for each nuclide in each segment.
3.  TFCDF    DAT    23509  - Unit 15 input; dose conversion factors.
4.  TFCPOP   DAT     3280  - Unit 16 input; population in each segment.
5.  TERFOC   JCL     1230  - JCL to run TERFOC-N.
6.  TERFOC   INP    11319  - sample TERFOC-N input.
7.  TERFOC   FOR   144484  - FORTRAN 77 source for TERFOC-N.
8.  DTLIST   FOR     3936  - FORTRAN 77 subroutine called by TERFOC-N.
9.  TERFOC   OUT   231833  - FACOM output for sample problem.

***The following are files corresponding to the Sun SPARCstation run.***

To compile and link and run the sample input on the SUN:

   mv TERFOC.FOR terfoc.f
   f77 -o xterfoc terfoc.f dtlstsun.f openall.f
   xterfoc

10. DTLSTSUN F       4046  - version of DTLIST.FOR for SUN.
11. OPENALL  F        446  - subroutine to open all FORTRAN units.
12. SUN      OUT   232453  - sample output from SUN corresponding to
                             TERFOC.INP.
***********************************************************************
      Note: The code was tested at RSIC on a Sun SPARCstation SLC
            using Version 1.2 of the Sun FORTRAN compiler.