Functions | |
c c the value on the coarse mesh is c set to one c ***********************************************************************c subroutine | coarsentags3d (&ifirstc0, ifirstc1, ifirstc2, ilastc0, ilastc1, ilastc2,&filo0, filo1, filo2, fihi0, fihi1, fihi2,&cilo0, cilo1, cilo2, cihi0, cihi1, cihi2,&ratio,&arrayf, arrayc) c ***********************************************************************implicit none integer zero |
Variables | |
c c | File |
|
|
|
|