TELEMAC-MASCARET Forum: Replace FIND_IN_SEL with FIND

Welcome, Guest

TOPIC: Replace FIND_IN_SEL with FIND_VARIABLE in noerod.f

Replace FIND_IN_SEL with FIND_VARIABLE in noerod.f 8 years 6 months ago #21398

josekdiaz OFFLINE Expert Boarder Posts: 161 Thank you received: 48	Dear JM and Costas, Sorry for the late reply, the missing line in the file was: CALL BIEF_ALLVEC(1,NOER,'NOER ',IELMT,1,2,MESH) No more segmentation faults and everything worked like a charm!. ...you can put ZR directly in the call to find_variable, instead of NOER%R. I will definitly try this for the next run of the case! Thank you both so much! Regards, José D.
	The administrator has disabled public write access.

Replace FIND_IN_SEL with FIND_VARIABLE in noerod.f 8 years 5 months ago #21852

cyamin
OFFLINE
openTELEMAC Guru
Posts: 997
Thank you received: 234

Hello all,

I had begun to implement the subroutine using ZR directly, but I didn't manage to make it work and reverted back to the 'old style' implementation as a quick fix. I revisited it, with a clearer state of mind, and made it work as JMH said.

Here is my file for anyone interested:

File Attachment:

File Name: noerod_t2d_v7p1_2016-06-06.f
File Size: 5 KB

Note that this is made to be used when Sisyphe is coupled with Telemac2D.

Best Regards,
Costas

The administrator has disabled public write access.

The following user(s) said Thank You: konsonaut

Replace FIND_IN_SEL with FIND_VARIABLE in noerod.f 8 years 5 months ago #22159

jaj
OFFLINE
Senior Boarder
Posts: 69
Thank you received: 7

Hello,

do you use Intel Fortran Compiler?

If yes, please note your problems might be connected with the fact that Intel Fortran Compiler has stopped since 2015 to tolerate the old methodology of skipping records in Serafin/Selafin files. However, this should affect only older Telemac versions, I suppose, but some remaining murks can be still there.

Note the thread in Intel Developer Zone:
Skipping records in an unformatted sequential file with mixed record types

Best regards,
jaj

The administrator has disabled public write access.

Replace FIND_IN_SEL with FIND_VARIABLE in noerod.f 8 years 5 months ago #22162

cyamin OFFLINE openTELEMAC Guru Posts: 997 Thank you received: 234	Hello Jaj, Thank you for the pointer. I am using MinGW-w64 (v5.3.0). The problem was probably due to mixing environmental variables\paths between tags and the trunk installation or just coding error . Regards, Costas
	The administrator has disabled public write access.