Adapting Similar and cfl2cif to changes made by Javier.

parent 08e7a233
Pipeline #7408 failed with stages
in 7 minutes and 11 seconds
......@@ -119,7 +119,8 @@
write(unit=*,fmt="(a)") " File: "//trim(filcod)//".cif (or .cfl) doesn't exist!"
stop
end if
call Readn_Set_Xtal_Structure(trim(filcod)//".cfl",Cell,SpaceGroup,A,"Atm",Mode="CFL",file_list=file_dat)
!call Readn_Set_Xtal_Structure(trim(filcod)//".cfl",Cell,SpaceGroup,A,"Atm",Mode="CFL",file_list=file_dat)
call Read_Xtal_Structure(trim(filcod)//".cfl",Cell,SpaceGroup,A,Ftype=file_dat)
!end if
If(err_CFML%Ierr == 1) then
write(unit=*,fmt="(a)") trim(err_CFML%Msg)
......
......@@ -83,7 +83,8 @@
write(unit=*,fmt="(a)") " File: "//trim(filcod)//".cfl doesn't exist!"
call CloseProgram()
end if
call Readn_Set_Xtal_Structure(trim(filcod)//".cfl",Cell,SpaceGroup,A,"Atm",Mode="CFL",file_list=file_dat)
!call Readn_Set_Xtal_Structure(trim(filcod)//".cfl",Cell,SpaceGroup,A,"Atm",Mode="CFL",file_list=file_dat)
call Read_Xtal_Structure(trim(filcod)//".cfl",Cell,SpaceGroup,A)
If(err_CFML%Ierr == 1) then
write(unit=*,fmt="(a)") trim(err_CFML%Msg)
call CloseProgram()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment