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