| /phasta/phSolver/ |
| H A D | CHANGES | 50 CVS: CHANGES common/asbnabi.f common/bctint.f common/common.h 51 CVS: common/common_c.h common/fillsparse.f common/gendat.f 52 CVS: common/genini.f common/input.config common/input.f 53 CVS: common/input_fform.cc common/local_mass.f 55 CVS: common/pointer.f common/proces.f common/pvsqbi.f common/qpbc.f 56 CVS: common/readnblk.f common/rwvelb.f common/solvecon.f 57 CVS: common/timeseries.f incompressible/Makefile 58 CVS: incompressible/advLES.f incompressible/asbflx.f 59 CVS: incompressible/asbmfg.f incompressible/asigmr.f 60 CVS: incompressible/bc3lhs.f incompressible/bc3res.f [all …]
|
| /phasta/svLS/ |
| H A D | Makefile | 57 FSRCS = ADDBCMUL.f \ 58 BC.f \ 59 CGRAD.f \ 60 COMMU.f \ 61 CPUT.f \ 62 DOT.f \ 63 GE.f \ 64 GMRES.f \ 65 INCOMMU.f \ 66 LHS.f \ [all …]
|
| H A D | CMakeLists.txt | 8 SET(FSRCS ADDBCMUL.f 9 BC.f 10 #BICGS.f 11 CGRAD.f 12 COMMU.f 13 CPUT.f 14 DOT.f 15 GE.f 16 GMRES.f 17 INCOMMU.f [all …]
|
| /phasta/phSolver/common/ |
| H A D | phio_posix.cc | 19 void close(phio_fp f, const char* mode) { in close() argument 20 closefile(f->file, mode); in close() 21 free(f->file); in close() 22 free(f); in close() 26 void posix_openfile(const char filename[], phio_fp f) { in posix_openfile() argument 28 int err = posix_openfile_single(posixName.c_str(),f); in posix_openfile() 32 int posix_openfile_single(const char filename[], phio_fp f) { in posix_openfile_single() argument 33 assert(f->mode == 'r' || f->mode == 'w'); in posix_openfile_single() 35 if(f->mode == 'r') in posix_openfile_single() 36 openfile(posixName.c_str(), "read", f->file); in posix_openfile_single() [all …]
|
| H A D | phIO.cc | 45 phio_fp f, in phio_readheader() argument 52 f->ops->readheader(f->file, keyphrase, valueArray, in phio_readheader() 57 phio_fp f, in phio_writeheader() argument 65 f->ops->writeheader(f->file, keyphrase, valueArray, in phio_writeheader() 70 phio_fp f, in phio_readdatablock() argument 77 f->ops->readdatablock(f->file, keyphrase, valueArray, in phio_readdatablock() 82 phio_fp f, in phio_writedatablock() argument 89 f->ops->writedatablock(f->file, keyphrase, valueArray, in phio_writedatablock() 95 phio_fp f, in phio_constructName() argument 99 f->ops->constructname(inName, outName); in phio_constructName() [all …]
|
| H A D | syncio.cc | 27 void init(sync_fp f, char mode) { in init() argument 29 f->ops = &sync_ops_write; in init() 31 f->ops = &sync_ops_read; in init() 37 f->file = (int*) malloc(sizeof(int*)); in init() 38 f->mode = mode; in init() 41 void syncio_setup_read(int nfiles, phio_fp* f) { in syncio_setup_read() argument 42 *f = (phio_fp) malloc(sizeof(struct syncio_file)); in syncio_setup_read() 43 sync_fp sf = (sync_fp) *f; in syncio_setup_read() 50 void syncio_setup_write(int nfiles, int nfields, int nppf, phio_fp* f) { in syncio_setup_write() argument 51 *f = (phio_fp) malloc(sizeof(struct syncio_file)); in syncio_setup_write() [all …]
|
| H A D | Makefile | 67 mods := spebc.f pointer.f \ 68 turbsa.f \ 69 perprep.f local_mass.f \ 70 filtprep.f pvsqbi.f \ 71 dtn.f bardmc.f \ 72 turbke.f\ 73 bctint.f readnblk.f\ 74 mod_slpw.f
|
| H A D | streamio.cc | 22 void streamio_setup_r(phio_fp* f, RStream* rs, char mode) { in streamio_setup_r() argument 24 *f = (phio_fp) malloc(sizeof(struct streamio_file)); in streamio_setup_r() 25 stream_fp sf = (stream_fp) *f; in streamio_setup_r() 32 void streamio_setup_read(phio_fp* f, GRStream* grs) { in streamio_setup_read() argument 33 *f = (phio_fp) malloc(sizeof(struct streamio_file)); in streamio_setup_read() 34 stream_fp sf = (stream_fp) *f; in streamio_setup_read() 41 void streamio_setup_write(phio_fp* f, RStream* rs) { in streamio_setup_write() argument 42 *f = (phio_fp) malloc(sizeof(struct streamio_file)); in streamio_setup_write() 43 stream_fp sf = (stream_fp) *f; in streamio_setup_write()
|
| H A D | posixio.cc | 17 void posixio_setup(phio_fp* f, char mode) { in posixio_setup() argument 18 *f = (phio_fp) malloc(sizeof(struct phio_file)); in posixio_setup() 19 (*f)->ops = &posix_ops; in posixio_setup() 25 (*f)->file = (int*) malloc(sizeof(int*)); in posixio_setup() 26 (*f)->mode = mode; in posixio_setup()
|
| H A D | phio_sync.cc | 33 void close(sync_fp f, const char* mode) { in close() argument 34 int* file = f->file; in close() 38 free(f); in close() 44 phio_fp f) { in sync_openfile_read() argument 45 sync_fp sf = (sync_fp) f; in sync_openfile_read() 58 phio_fp f) { in sync_openfile_write() argument 59 sync_fp sf = (sync_fp) f; in sync_openfile_write() 68 void sync_closefile(phio_fp f) { in sync_closefile() argument 69 sync_fp sf = (sync_fp) f; in sync_closefile()
|
| H A D | CMakeLists.txt | 2 FILE(GLOB SRC_FILES *.cc *.f *.f90 *.c *.F90) 30 set_source_files_properties(fillsparse.f PROPERTIES COMPILE_FLAGS 31 "-qsuffix=cpp=f") 32 set_source_files_properties(petscdbg.f PROPERTIES COMPILE_FLAGS 33 "-qsuffix=cpp=f")
|
| H A D | streamio.h | 8 void streamio_setup_r(phio_fp* f, rstream rs, char mode); 9 void streamio_setup_read(phio_fp* f, grstream grs); 10 void streamio_setup_write(phio_fp* f, rstream rs);
|
| H A D | phio_stream.cc | 27 phio_fp f) { in stream_openfile() argument 29 stream_fp sf = (stream_fp) f; in stream_openfile() 101 void stream_closefile(phio_fp f) { in stream_closefile() argument 103 stream_fp sf = (stream_fp) f; in stream_closefile() 110 free(f); in stream_closefile()
|
| H A D | syncio.h | 7 void syncio_setup_read(int nfiles, phio_fp* f); 8 void syncio_setup_write(int nfiles, int nfields, int nppf, phio_fp* f);
|
| /phasta/M2NFixBnd/src/ |
| H A D | CMakeLists.txt | 1 …main.c phasta.cc input.f readnblk.f cname.f setsyncioparam.cc new_interface.c dumbCvariables.c cty… 6 set_source_files_properties(readnblk.f PROPERTIES COMPILE_FLAGS 7 "-qsuffix=cpp=f") 11 set_source_files_properties(readnblk.f PROPERTIES COMPILE_FLAGS
|
| /phasta/AcuStat/src/ |
| H A D | CMakeLists.txt | 1 …main.c phasta.cc input.f readnblk.f cname.f setsyncioparam.cc new_interface.c dumbCvariables.c cty… 6 set_source_files_properties(readnblk.f PROPERTIES COMPILE_FLAGS 7 "-qsuffix=cpp=f") 11 set_source_files_properties(readnblk.f PROPERTIES COMPILE_FLAGS
|
| /phasta/M2N/src/ |
| H A D | CMakeLists.txt | 1 add_executable(M2N main.c phasta.cc input.f readnblk.f cname.f setsyncioparam.cc new_interface.c du… 6 set_source_files_properties(readnblk.f PROPERTIES COMPILE_FLAGS 7 "-qsuffix=cpp=f") 11 set_source_files_properties(readnblk.f PROPERTIES COMPILE_FLAGS
|
| /phasta/phSolver/incompressible/ |
| H A D | CMakeLists.txt | 1 file(GLOB SRC_FILES *.cc *.f *.f90 *.c) 16 list(REMOVE_ITEM SRC_FILES ${CMAKE_CURRENT_SOURCE_DIR}/lesSparse.f ) 17 list(REMOVE_ITEM SRC_FILES ${CMAKE_CURRENT_SOURCE_DIR}/ftools.f ) 45 #force preprocessing of solfar.f 46 set_source_files_properties(solfar.f PROPERTIES COMPILE_FLAGS "-qsuffix=cpp=f") 47 set_source_files_properties(itrdrv.f PROPERTIES COMPILE_FLAGS "-qsuffix=cpp=f") 48 set_source_files_properties(filters.f PROPERTIES COMPILE_FLAGS "-qsuffix=cpp=f") 51 #force preprocessing of solfar.f 52 set_source_files_properties(solfar.f PROPERTIES COMPILE_FLAGS "-Mpreprocess")
|
| /phasta/shapeFunction/src/ |
| H A D | Bn.c | 20 double f = 0.0; in Bn() local 27 f = 1.0; in Bn() 30 f = t+2.0/3.0*s+2.0/3.0*r-2.0/3.0; in Bn() 33 f = s+2.0/5.0*r-2.0/5.0; in Bn() 36 f = r-2.0/7.0; in Bn() 42 f = t1+6.0/5.0*t*t2+3.0/10.0*t4; in Bn() 45 f = (s+2.0/7.0*r-2.0/7.0)*(t+2.0/3.0*s+2.0/3.0*r-2.0/3.0); in Bn() 51 f = t1+6.0/7.0*t2*s+t4/7; in Bn() 54 f = (r-2.0/9.0)*(t+2.0/3.0*s+2.0/3.0*r-2.0/3.0); in Bn() 57 f = (r-2.0/9.0)*(s+2.0/5.0*r-2.0/5.0); in Bn() [all …]
|
| H A D | En.c | 18 double f = 0.0; in En() local 24 f = 1.0; in En() 27 f = s-r; in En() 32 f = t1-3.0*r*s+t3; in En() 37 f = t1*s-6.0*r*t1+6.0*t4*s-t4*r; in En() 44 f = t2-10.0*r*t1*s+20.0*t5*t1-10.0*t5*r*s+t9; in En() 51 f = t2*s-15.0*t2*r+50.0*t5*t1*s-50.0*t5*r*t1+15.0*t10*s-t10*r; in En() 58 f = t2*t1-21.0*r*t2*s+105.0*t6*t2-175.0*t6*r*t1*s+105.0*t11*t1-21.0*t11 in En() 68 f = t3*t2-28.0*r*t3*t1+196.0*t7*t3*s-490.0*t10*t3+490.0*t12*t2-196.0* in En() 80 f = t3-36.0*r*t2*t4+336.0*t7*t2*t1-1176.0*t10*t2*s+1764.0*t13*t2-1176.0 in En() [all …]
|
| H A D | Fn.c | 19 double f = 0.0; in Fn() local 26 f = 1.0; in Fn() 29 f = s-1.0/3.0; in Fn() 32 f = r-1.0/3.0; in Fn() 36 f = t1-3.0/4.0*s+3.0/28.0; in Fn() 39 f = r*s-r/4-s/4+1.0/14.0; in Fn() 43 f = t1-3.0/4.0*r+3.0/28.0; in Fn() 47 f = t1*s-6.0/5.0*t1+2.0/5.0*s-1.0/30.0; in Fn() 51 f = r*t1-3.0/5.0*r*s+r/15-t1/5+2.0/15.0*s-1.0/60.0; in Fn() 55 f = t1*s-t1/5-3.0/5.0*r*s+2.0/15.0*r+s/15-1.0/60.0; in Fn() [all …]
|
| /phasta/phSolver/testIC-DSIM/ |
| H A D | geom.sms | 141 b 12 6 f 142 b 12 f 7 150 1 23 h f 154 5 23 b f 160 1 24+d+p+q-f 166 3 24+f+u-4+1 178 0 6+i-c-3-k-7-f
|
| H A D | geom.sdm | 141 b 12 6 f 142 b 12 f 7 150 1 22 h f 154 5 22 b f 159 1 24+d+p+q-f 165 3 24+f+u-4+1
|
| /phasta/phSolver/compressible/ |
| H A D | CMakeLists.txt | 1 file(GLOB SRC_FILES *.cc *.f *.f90 *.c) 21 #force preprocessing of itrdrv.f 22 set_source_files_properties(itrdrv.f PROPERTIES COMPILE_FLAGS "-qsuffix=cpp=f")
|
| /phasta/phSolver/common/test/ |
| H A D | CMakeLists.txt | 16 set(ftnsrc chdir_mod.f phIOread.f) 19 setup_exe(phIOwriteFtn phIOwrite.f)
|