changer
/infobank/programs/mag/geomag/changer.for
Program to change formatted data to unformatted format.
open (unit=OutputUnit, file='igrf.kep', status='NEW', * access='SEQUENTIAL', form='UNFORMATTED', recl=80, * recordtype='FIXED', * carriagecontrol='LIST', iostat=ErrorFlag)
read (InputUnit, InputFormat, iostat = ErrorFlag) aLine
write (OutputUnit) aLine
call openem (1, 0) call forerror(ErrorFlag) call percentage (InputUnit) call forerror (ErrorFlag) call percentage (0)