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