PGF90 (Version     12.8)          08/30/2020  00:27:48      page 1

Switches: -noasm -nodclchk -nodebug -nodlines -noline -list
          -idir ../include
          -inform warn -opt 1 -nosave -object -noonetrip
          -depchk on -nostandard     
          -nosymbol -noupcase    

Filename: bocoh.f90

(    1) !&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
(    2)        Subroutine Bocoh(H,im,jm,nm)
(    3) !     ******************************************************************
(    4) !c    *                                                                *
(    5) !c    *  Boundary Conditions for Height Points on cube                 *
(    6) !c    *                                                                *
(    7) !c    ******************************************************************
(    8) !c----------------------------------------------------------------------
(    9) !c-------------------------------------------------------------------
(   10)       implicit none
(   11) 
(   12)       integer::im,jm,nm
(   13)       REAL    :: H(0:im+1,0:jm+1,nm)
(   14) 
(   15)       if(nm.eq.6)then
(   16)         call bocoh_cb(h,im,jm)
(   17)       else if(nm.eq.14)then
(   18)         call bocoh_oc(h,im,jm)
(   19)       endif
(   20) 
(   21)       END SUBROUTINE Bocoh
(   22) 
(   23)