doc-doxygen/html/prtout_8f_source.html

00001       SUBROUTINE prtout (cdtext, kvalue, kstyle)
00002 C****
00003 C               *****************************
00004 C               * OASIS ROUTINE  -  LEVEL 1 *
00005 C               * -------------     ------- *
00006 C               *****************************
00007 C
00008 C**** *prtout*  - Print output
00009 C
00010 C     Purpose:
00011 C     -------
00012 C     Print out character string and one integer value
00013 C
00014 C**   Interface:
00015 C     ---------
00016 C       *CALL*  *prtout (cdtext, kvalue, kstyle)*
00017 C
00018 C     Input:
00019 C     -----
00020 C                cdtext : character string to be printed
00021 C                kvalue : integer variable to be printed
00022 C                kstyle : printing style
00023 C
00024 C     Output:
00025 C     ------
00026 C     None
00027 C
00028 C     Workspace:
00029 C     ---------
00030 C
00031 C     Externals:
00032 C     ---------
00033 C     None
00034 C
00035 C     Reference:
00036 C     ---------
00037 C     See OASIS manual (1995)
00038 C
00039 C     History:
00040 C     -------
00041 C       Version   Programmer     Date      Description
00042 C       -------   ----------     ----      -----------
00043 C       2.0       L. Terray      95/10/01  created
00044 C       2.3       L. Terray      99/02/24  modified: X format for NEC
00045 C
00046 C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00047 C
00048 C* ---------------------------- Include files ---------------------------
00049 C
00050       USE mod_unit
00051 C
00052 C* ---------------------------- Argument declarations ----------------------
00053 C
00054       CHARACTER*(*) cdtext
00055       INTEGER (kind=ip_intwp_p) kvalue, kstyle
00056 C
00057 C* ---------------------------- Local declarations ----------------------
00058 C
00059       CHARACTER cbase
00060       CHARACTER*10 cprpt, cdots
00061       CHARACTER*69 cline
00062       PARAMETER ( cbase = '-' )
00063       PARAMETER ( cprpt = '* ===>>> :' )
00064       PARAMETER ( cdots = '  ------  ' )
00065 C
00066 C* ---------------------------- Poema verses ----------------------------
00067 C
00068 C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00069 C
00070 C*    1. Print character string + integer value
00071 C        --------------------------------------
00072 C
00073       IF ( kstyle .EQ. 1 .OR. kstyle .EQ. 2) THEN
00074           cline = ' '
00075           ilen = len(cdtext)
00076           DO 110 jl = 1, ilen
00077             cline(jl:jl) = cbase
00078  110      CONTINUE
00079           IF ( kstyle .EQ. 2 ) THEN
00080               WRITE(UNIT = nulou,FMT='(/,A,1X,A)') cdots, cline
00081           ENDIF
00082           WRITE(UNIT = nulou,FMT='(A,1X,A,1X,I18)')
00083      $        cprpt, cdtext, kvalue
00084           WRITE(UNIT = nulou,FMT='(A,1X,A,/)') cdots, cline
00085         ELSE
00086           WRITE(UNIT = nulou,FMT='(/,A,1X,A,1X,I18,/)')
00087      $          cprpt, cdtext, kvalue
00088       ENDIF
00089 C
00090 C
00091 C*    2. End of routine
00092 C        --------------
00093 C
00094       CALL FLUSH ( nulou )
00095       RETURN
00096       END