Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
ElmerCSC
GitHub Repository: ElmerCSC/elmerfem
 Path: blob/devel/ElmerWorkflows/Gid2Elmer/elmer.gid/gid2elmer.f90
3203 views
1
PROGRAM GID2ELMER

2
!----------------------------------------------------------------------------

3
! READS GID MESH DATA FROM STDIO AND WRITES IT OUT IN ELMER MESH FILES

4
!

5
! Written by : Mikko Lyly 17 May 2005

6
!

7
! Modified by:

8
!----------------------------------------------------------------------------

9
  IMPLICIT NONE

10
  CHARACTER(LEN=200) :: lineread

11
!----------------------------------------------------------------------------

12
  OPEN(UNIT=10, FILE='mesh.nodes', STATUS='unknown')

13
  OPEN(UNIT=11, FILE='mesh.boundary', STATUS='unknown')

14
  OPEN(UNIT=12, FILE='mesh.elements', STATUS='unknown')

15
  OPEN(UNIT=13, FILE='mesh.header', STATUS='unknown')

16


17
1 CONTINUE

18
!----------------------------------------------------------------------------

19
  READ(*,'(A200)', ERR=2) lineread

20
  IF( lineread(1:3)=='eof' ) GOTO 2

21
  IF( lineread(1:11)=='mesh.nodes:' )    WRITE(10,*) TRIM( lineread(12:200) )

22
  IF( lineread(1:14)=='mesh.boundary:' ) WRITE(11,*) TRIM( lineread(15:200) )

23
  IF( lineread(1:14)=='mesh.elements:' ) WRITE(12,*) TRIM( lineread(15:200) )

24
  IF( lineread(1:12)=='mesh.header:' )   WRITE(13,*) TRIM( lineread(13:200) )

25
!----------------------------------------------------------------------------

26
  GOTO 1

27


28
2 CONTINUE

29
  CLOSE(10)

30
  CLOSE(11)

31
  CLOSE(12)

32
  CLOSE(13)

33


34
END PROGRAM GID2ELMER

35


36