doc-doxygen/html/prcout_8f_source.html

00001       SUBROUTINE prcout (cdtext, cdstring, kstyle)
00002 C****
00003 C               *****************************
00004 C               * OASIS ROUTINE  -  LEVEL 1 *
00005 C               * -------------     ------- *
00006 C               *****************************
00007 C
00008 C**** *prcout*  - Print output
00009 C
00010 C     Purpose:
00011 C     -------
00012 C     Print out character string and one character value
00013 C
00014 C**   Interface:
00015 C     ---------
00016 C       *CALL*  *prcout (cdtext, cdstring, kstyle)*
00017 C
00018 C     Input:
00019 C     -----
00020 C                cdtext   : character string to be printed
00021 C                cdstring : character 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     None
00031 C
00032 C     Externals:
00033 C     ---------
00034 C     None
00035 C
00036 C     Reference:
00037 C     ---------
00038 C     See OASIS manual (1995)
00039 C
00040 C     History:
00041 C     -------
00042 C       Version   Programmer     Date      Description
00043 C       -------   ----------     ----      -----------
00044 C       2.0       L. Terray      95/10/01  created
00045 C       2.3       L. Terray      99/02/24  modified: X format for NEC
00046 C
00047 C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00048 C
00049 C* ---------------------------- Include files ---------------------------
00050 C
00051       USE mod_unit
00052 C
00053 C* ---------------------------- Argument declarations ----------------------
00054 C
00055       CHARACTER*(*) cdtext, cdstring
00056 C
00057 C* ---------------------------- Local declarations ----------------------
00058 C
00059       CHARACTER cpbase
00060       CHARACTER*10 cprpt, cpdots
00061       CHARACTER*69 cline
00062       PARAMETER ( cpbase = '-' )
00063       PARAMETER ( cprpt = '* ===>>> :' )
00064       PARAMETER ( cpdots = '  ------  ' )
00065 C
00066 C* ---------------------------- Poema verses ----------------------------
00067 C
00068 C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00069 C
00070 C*    1. Print character string + character 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) = cpbase
00078  110      CONTINUE
00079           IF ( kstyle .EQ. 2 ) THEN
00080               WRITE(UNIT = nulou,FMT='(/,A,1X,A)') cpdots, cline
00081           ENDIF
00082           WRITE(UNIT = nulou,FMT='(A,1X,A,1X,A)')
00083      $        cprpt, cdtext, cdstring
00084           WRITE(UNIT = nulou,FMT='(A,1X,A,/)') cpdots, cline
00085         ELSE
00086           WRITE(UNIT = nulou,FMT='(/,A,1X,A,1X,A,/)')
00087      $          cprpt, cdtext, cdstring
00088       ENDIF
00089 C
00090 C
00091 C*    3. End of routine
00092 C        --------------
00093 C
00094       CALL FLUSH (nulou)
00095       RETURN
00096       END