Expanded description
| Topic |
Description |
| Name |
cssp2ll |
| Synopsis |
/infobank/programs/nav/cssp2ll/cssp2ll.for |
| Description |
Program to calculate latitude and logitude from time, course, and speed
given a starting latitude and longitude.
|
| Prompts |
Enter input file name:
Program expects navigation input in standard eotcssp-like format as follows:
iyear, iday, ihour, imin, isec, itenths, course, speed
(i4, i3, 3i2, i1, t42, f6.2, t49, f6.2)
Enter starting latitude and longitude:
Enter output file name:
Program writes output in standard eotcssp format as follows:
jyear, jday, jhour, jmin, jsec, jtenths, ylat, ylong, Eotvos(milligals),
course(degrees), speed(knots),
distance(meters), cumulative distance(meters)
(i4.4, i3.3, 3i2.2, i1.1, t12, f9.5, t22, f10.5, t33, f8.2,
t42, f6.2, t49, f6.2, t55, f8.1, t63, f10.1)
|
| Subroutines |
vescinit (shared DAPS external routine)
openem (shared DAPS external routine)
percentage (shared DAPS external routine)
forerror (shared DAPS external routine)
converttime (shared DAPS external routine)
getcourse (shared DAPS external routine)
getdistance (shared DAPS external routine)
getspeed (shared DAPS external routine)
geteotvos (shared DAPS external routine)
|
| Functions |
dble (FORTRAN intrinsic function)
|
| Files_used |
unit=*(write)
unit=90(read,close)
unit=91(write,close)
|
| Author |
Carolyn Degnan, 8/8/97 modeled after eotcssp.for
|
| Reads |
read (90, 4000, iostat = ierr) length, aline(1:length)
read (aline, 400, iostat = ierr)
* iyear, iday, ihour, imin, isec, itenths,
* Course, Speed
read (90, 410, end = 999, iostat = ierr)
* jyear, jday, jhour, jmin, jsec, jtenths,
* Course, Speed
|
| Writes |
write (91, 500, iostat = ierr)
* jyear, jday, jhour, jmin, jsec, jtenths,
* ylat, ylong, Eotvos, Course, Speed,
* Distance, CumDistance
|
| Calls |
call openem (1, 1)
call percentage (90)
call forerror (ierr)
call converttime ('COMPRESS', iday, ihour, imin, isec,
* itenths, ixtime, ErrorFlag)
call percentage (90)
call forerror (ierr)
call converttime ('COMPRESS', jday, jhour, jmin,
* jsec, jtenths, iytime, ErrorFlag)
call deadreckon (dxlat, dxlong, Course, Distance,
* dylat, dylong)
call geteotvos (dylat, Course, Speed, Eotvos)
call converttime ('EXPAND', jday, jhour, jmin, jsec,
* jtenths, iytime, ErrorFlag)
call forerror (ierr)
call percentage (0)
|
|
