- open(intin,file=intinname,status='old')
- write (istat,'(a5,20a12)')"# ",
+ if (read_cart) then
+ iconf=0
+#ifdef AIX
+ call xdrfopen_(ixdrf,intinname, "r", iret)
+#else
+ call xdrfopen(ixdrf,intinname, "r", iret)
+#endif
+ else
+ open(intin,file=intinname,status='old')
+ endif
+ write (istat,'(a5,30a12)')"# ",