■

築地で会議．

Fortranですか．マジですか．単位違ってるし．ぐがーー
=======
PROGRAM IRIANDRN

LOGICAL INSI, ISIT
INTEGER I, IOSTAT, J, KEYNUM, MAXCHN, MAXOUT, MAXPNT
INTEGER NCHAN, NS, NSAMP
PARAMETER (MAXCHN = 2, MAXOUT = 3, MAXPNT = 60000)
REAL*4 BASE, DATBUF(MAXPNT), PROF(MAXPNT), SCL, STEP
REAL*4 XPI(MAXOUT), XIRI(MAXOUT), UNITSC
CHARACTER*8 KEY, SHRT(MAXOUT), UNIRI, UNIT(MAXCHN), XUNIT
CHARACTER*32 FNAME
CHARACTER*80 BUFFER, STR

C Set BASE. (PROGRAMMER: Make sure this is correct.)
C BASE is the moving average base length in meters. Use 0.25 for
C unfiltered profile input, and 0.0 for pre-smoothed profiles.
PARAMETER (BASE = 0.25)
========