xref: /libCEED/tests/t003-ceed-f.f90 (revision ded9b81dfe1c5b0a720aeaeab78a4be02eef9bb5)
1!-----------------------------------------------------------------------
2      program test
3      implicit none
4      include 'ceedf.h'
5
6      integer ceed,err
7      character arg*32
8
9
10      call getarg(1,arg)
11
12      call ceedinit(trim(arg)//char(0),ceed,err)
13
14      call ceedview(ceed,err)
15
16      call ceeddestroy(ceed,err)
17
18      end
19!-----------------------------------------------------------------------
20