//
// Individual PROCEDURES
//
// These subroutines implement each function or procedure using a datafile
// with the number of each routine to identify which subroutine to use.
//
// ------------------------------------------------------------------------
PROCEDURE TestConvTime;
VAR
Year, Mon, Day, Hr, MIN, TimeZone: INTEGER;
TypeUTIn:char;
FileN1:str64;
Error:str12;
DUT1,DAT,xp,yp,UT1,TUT1,JDUT1,UTC,JDUTC,TAI,TT,TTT,JDTT,TDB,TTDB,JDTDB,DDPsi,DDEps,XLOD,sec : Extended;
BEGIN
writeln('adentro del procedimiento');
Read( InFile, Year,Mon,Day,Hr,Min,Sec,TimeZone,TypeUtIn );
Write( 'OutFile', ' year ',Year,' month ',Mon,' day ',Day,' ',Hr,':',Min,':',Sec:2:2,' zone: ',TimeZone,' ',TypeUtIn, ' fin ' );
writeln('***');
//CONVTIME(FileN1,Year,Mon,Day,Hr,MIN,SEC,TimeZone,TypeUTIn,DUT1,DAT, xp, yp, UT1,TUT1, JDUT1, UTC, TAI, TDT, TTDT, JDTDT,TDB,TTDB, JDTDB, Error );
Readln( InFile, FileN1 );
CONVTIME(FileN1, Year,Mon,Day,Hr,MIN,SEC,TimeZone,TypeUTIn, DUT1,DAT,xp,yp,UT1,TUT1,JDUT1,UTC,JDUTC,TAI,TT,TTT,JDTT,TDB,TTDB,JDTDB,DDPsi,DDEps,XLOD,Error);
WriteLn( OutFile, ' Results:' );
WriteLn( OutFile, DUT1,' ',DAT,' ',xp,' ',yp,' ' );
WriteLn( OutFile, UT1,' ',TUT1,' ',JDUT1,' ',UTC,' ',TAI,' ',tt );
WriteLn( OutFile, ttt,' ',JDTT,' ',TDB,' ',TTDB,' ',JDTDB,' ',JDTDB,' ',DDPsi,' ',DDEps,' ',XLOD,' ',Error );
END;
BEGIN // --------------------------- M A I N -----------------------------
IFileName := 'in.dat';
ASSIGN( InFile,IFileName );
RESET( InFile );
{$I-}
{ open it }
{$I+}
if IOresult<>0 then
begin
writeln('Error encountered in reading file ');
halt;
end;
ASSIGN( OutFile,'dat.out' );
Rewrite( OutFile );
{$I-}
{ open it }
{$I+}
if IOresult<>0 then
begin
writeln('Error encountered in write file ');
halt;
end;
writeln('previo al llamado del procedimiento');
TestConvTime;
CLOSE( InFile );
CLOSE( OutFile );
END. // Program Testastf