Searched refs:g_InitialCnd (Results 1 – 6 of 6) sorted by relevance
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/dynamic/transit/ |
| H A D | fstr_solve_dynamic.f90 | 165 if(associated(g_InitialCnd))then
167 do j = 1, size(g_InitialCnd)
168 if(g_InitialCnd(j)%cond_name == "velocity")then
170 ing = g_InitialCnd(j)%intval(i)
172 fstrDYNAMIC%VEL(ndof*i-(ndof-ing),1) = g_InitialCnd(j)%realval(i)
174 elseif(g_InitialCnd(j)%cond_name == "acceleration")then
176 ing = g_InitialCnd(j)%intval(i)
178 fstrDYNAMIC%ACC(ndof*i-(ndof-ing),1) = g_InitialCnd(j)%realval(i)
|
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/ |
| H A D | fstr_solve_NLGEOM.f90 | 61 if( fstrSOLID%TEMP_ngrp_tot>0 .and. associated(g_InitialCnd) ) then
64 do j=1,size(g_InitialCnd)
65 if( g_InitialCnd(j)%cond_name=="temperature" ) then
72 fstrSOLID%last_temp(i) = g_InitialCnd(j)%realval(i)
|
| H A D | fstr_Update.f90 | 59 if( associated(g_InitialCnd) ) then
60 do j=1,size(g_InitialCnd)
61 if( g_InitialCnd(j)%cond_name=="temperature" ) then
112 if( initt>0 ) tt0(j) = g_InitialCnd(initt)%realval(nodLOCAL(j))
|
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/heat/ |
| H A D | heat_init.f90 | 32 if( associated(g_InitialCnd) ) then
33 do j=1,size(g_InitialCnd)
34 if( g_InitialCnd(j)%cond_name=="temperature" ) then
36 fstrHEAT%TEMP0(i)= g_InitialCnd(j)%realval(i)
|
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/ |
| H A D | m_fstr.f90 | 135 type( tInitialCondition ), pointer, save :: g_InitialCnd(:) => null() variable
|
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/common/ |
| H A D | fstr_setup.f90 | 311 if( c_initial>0 ) allocate( g_InitialCnd( c_initial ) )
517 if( fstr_setup_INITIAL( ctrl, g_InitialCnd(c_initial), P%MESH )/=0 ) then
|