home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / forum5.lzh / SPRACHEN / FORTRAN / BIORY / biory.doc < prev    next >
Text File  |  1988-04-04  |  5KB  |  157 lines
  1.  
  2.     ----------------------------------------------------------------------------
  3.     Dokumentation aus Fortran-Sourcefile 'biory.f'
  4.     ----------------------------------------------------------------------------
  5.  
  6.  
  7.     BESCHREIBUNG :
  8.     --------------
  9.  
  10.         BIORY berechnet den Biorhythmus fuer ein oder mehrere Jahre sowie
  11.         fuer eine oder mehrere Personen.
  12.         Der Benutzer wird nach dem Programmaufruf nach dem Namen, Geburts-
  13.         Datum sowie der gewuenschten Zeitspanne gefragt. Die Eingabeformate
  14.         sind selbsterklaerend.
  15.         Die Ergebnisse werden in ein File (Biory.Lis) geschrieben.
  16.  
  17.     GERUFENE SUBROUTINEN/FUNCTIONS :
  18.     --------------------------------
  19.  
  20.         DATCON, DATCO1
  21.  
  22.     BEMERKUNGEN :
  23.     -------------
  24.  
  25.         Da die verwendete RTF-Version noch etwas muehsam in Bezug auf File-IO
  26.         ist, muss mit der "OPEN/CLOSE/CALL shell('del ...')"-Kombination erst
  27.         einmal ein eventuell vorhandenes Listing-File weggeputzt werden.
  28.         (--> Hoffen auf baldige Besserung !)
  29.  
  30.     COPYRIGHT :
  31.     -----------
  32.  
  33.         Nur fuer nichtkommerzielle Nutzung freigegeben !
  34.  
  35.     HARDWARE :
  36.     ----------
  37.  
  38.         GEPARD 68000, 1 Sony-Laufwerk 3.5", 1.5MB RAM, 30 MB Harddisk,
  39.         80-Zeichen-Karte, Seriell-Parallel-Karte MTH3
  40.  
  41.     BETRIEBSSYSTEM/VERSION, COMPILER/VERSION :
  42.     ------------------------------------------
  43.  
  44.         Professional OS-9 V2.1, RTF-Fortran V2.14
  45.  
  46.     AUTOR(EN), ADRESSE, KURZZEICHEN :
  47.     ---------------------------------
  48.  
  49.         EGA : Andreas Eggenberger, Butzenstrasse 30,    Tel-P:     01/761 42 27
  50.               CH-8910 Affoltern a/A                     Tel-G:     01/249 24 96
  51.  
  52.     DATUM, AENDERUNGEN, VERSION :
  53.     -----------------------------
  54.  
  55.         02.04.88/EGA : V1.0 Urversion
  56.  
  57.  
  58.     ----------------------------------------------------------------------------
  59.     Dokumentation aus Fortran-Sourcefile 'biory.f'
  60.     ----------------------------------------------------------------------------
  61.  
  62.  
  63.     BESCHREIBUNG :
  64.     --------------
  65.  
  66.         DATCON berechnet die Anzahl Tage zwischen dem 1.1.1801 und TT.MM.JJ
  67.  
  68.     PARAMETER :
  69.     -----------
  70.  
  71.         TT, MM, JJ : Tag, Monat, Jahr
  72.         T          : Ergebnis : Anzahl Tage
  73.         E0         : Error-Flag : 1 = Datum nicht moeglich, 0 = Okay
  74.  
  75.     CALL-BEISPIEL :
  76.     ---------------
  77.  
  78.         CALL DATCON (11, 1, 1988, IANZ, IERR)
  79.  
  80.     COPYRIGHT :
  81.     -----------
  82.  
  83.         Nur fuer nichtkommerzielle Nutzung freigegeben !
  84.  
  85.     HARDWARE :
  86.     ----------
  87.  
  88.         GEPARD 68000, 1 Sony-Laufwerk 3.5", 1.5MB RAM, 30 MB Harddisk,
  89.         80-Zeichen-Karte, Seriell-Parallel-Karte MTH3
  90.  
  91.     BETRIEBSSYSTEM/VERSION, COMPILER/VERSION :
  92.     ------------------------------------------
  93.  
  94.         Professional OS-9 V2.1, RTF-Fortran V2.14
  95.  
  96.     AUTOR(EN), ADRESSE, KURZZEICHEN :
  97.     ---------------------------------
  98.  
  99.         EGA : Andreas Eggenberger, Butzenstrasse 30,    Tel-P:     01/761 42 27
  100.               CH-8910 Affoltern a/A                     Tel-G:     01/249 24 96
  101.  
  102.     DATUM, AENDERUNGEN, VERSION :
  103.     -----------------------------
  104.  
  105.         02.04.88/EGA : V1.0 Urversion
  106.  
  107.  
  108.     ----------------------------------------------------------------------------
  109.     Dokumentation aus Fortran-Sourcefile 'biory.f'
  110.     ----------------------------------------------------------------------------
  111.  
  112.  
  113.     BESCHREIBUNG :
  114.     --------------
  115.  
  116.         DATCO1 ist die komplementaere Funktion zu DATCON : Es wird das Datum
  117.         (TT, MM, JJ) berechnet, das vom 1.1.1801 "T" Tage entfernt ist.
  118.  
  119.     PARAMETER :
  120.     -----------
  121.  
  122.         T          : Anzahl Tage
  123.         TT, MM, JJ : Ergebnis : Tag, Monat, Jahr
  124.  
  125.     CALL-BEISPIEL :
  126.     ---------------
  127.  
  128.         CALL DATCO1 (IANZ, TT, MM, JJ)
  129.  
  130.     COPYRIGHT :
  131.     -----------
  132.  
  133.         Nur fuer nichtkommerzielle Nutzung freigegeben !
  134.  
  135.     HARDWARE :
  136.     ----------
  137.  
  138.         GEPARD 68000, 1 Sony-Laufwerk 3.5", 1.5MB RAM, 30 MB Harddisk,
  139.         80-Zeichen-Karte, Seriell-Parallel-Karte MTH3
  140.  
  141.     BETRIEBSSYSTEM/VERSION, COMPILER/VERSION :
  142.     ------------------------------------------
  143.  
  144.         Professional OS-9 V2.1, RTF-Fortran V2.14
  145.  
  146.     AUTOR(EN), ADRESSE, KURZZEICHEN :
  147.     ---------------------------------
  148.  
  149.         EGA : Andreas Eggenberger, Butzenstrasse 30,    Tel-P:     01/761 42 27
  150.               CH-8910 Affoltern a/A                     Tel-G:     01/249 24 96
  151.  
  152.     DATUM, AENDERUNGEN, VERSION :
  153.     -----------------------------
  154.  
  155.         02.04.88/EGA : V1.0 Urversion
  156.  
  157.