/usr/lpp/pessl/example/hpfon the SP, or in
/afs/ovpit.indiana.edu/common/www/htdocs/gustav/diffusionon the AFS, to produce an HDF animation of T(x,y,t) on a
movie-4-3.hdf, which means ``temperature
model 4, and diffusion model 3''.
README file how to run
the program and which HDF files correspond to
which models.
factor_nodes in
file fourier.f
minpower2 in file
fourier.f
get_diffusion_matrix:
pn_fac = 0
CALL factor_nodes(pn_fac)
factor1 = 3**pn_fac(2) * 5**pn_fac(3) * 7**pn_fac(4) * 11**pn_fac(5)
factor2 = (4*(dif_nx+1) + factor1 -1)/factor1
nx = minpower2( factor2,idum) * factor1
factor2 = (4*(dif_ny+1) + factor1 -1)/factor1
ny = minpower2( factor2,idum) * factor1
expand_temp_profile:
nx = minpower2( 2*(dif_nx+1), idum)
ny = minpower2( 2*(dif_ny+1), idum)
Makefile too),
HDF files, and the README file
in your AFS directory in a subdirectory
called Assignment_2.