Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- WorkVar2 => HydroSolver % Mesh % Variables
- IF (ParEnv % myPE == 0) THEN
- DO WHILE (ASSOCIATED(WorkVar2))
- PRINT *, 'VarName: ',WorkVar2 % Name
- IF (TRIM(WorkVar2 % Name) == 'normalstress') PRINT *, 'VarVal: ',WorkVar2 % Values
- END DO
- END IF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement