ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

replaced unit 0 with error_unit

Browse Source
This commit is contained in:
Karl Hammond
2022-12-02 00:00:57 -06:00
parent c2a0660112
commit b1664ce8ea
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
unittest/fortran/test_fortran_fixexternal.f90
View File

@ -51,7 +51,7 @@ CONTAINS
CALL instance%fix_external_set_energy_peratom('ext1', e) CALL instance%fix_external_set_energy_peratom('ext1', e)
CALL instance%fix_external_set_virial_peratom('ext1', v) CALL instance%fix_external_set_virial_peratom('ext1', v)
CLASS DEFAULT CLASS DEFAULT
WRITE(0,*) 'UMM...this should never happen.' WRITE(error_unit,*) 'UMM...this should never happen.'
STOP 1 STOP 1
END SELECT END SELECT
END SUBROUTINE f_callback_ss END SUBROUTINE f_callback_ss
@ -93,7 +93,7 @@ CONTAINS
CALL instance%fix_external_set_energy_peratom('ext1', e) CALL instance%fix_external_set_energy_peratom('ext1', e)
CALL instance%fix_external_set_virial_peratom('ext1', v) CALL instance%fix_external_set_virial_peratom('ext1', v)
CLASS DEFAULT CLASS DEFAULT
WRITE(0,*) 'UMM...this should never happen.' WRITE(error_unit,*) 'UMM...this should never happen.'
STOP 1 STOP 1
END SELECT END SELECT
END SUBROUTINE f_callback_sb END SUBROUTINE f_callback_sb
@ -135,7 +135,7 @@ CONTAINS
CALL instance%fix_external_set_energy_peratom('ext1', e) CALL instance%fix_external_set_energy_peratom('ext1', e)
CALL instance%fix_external_set_virial_peratom('ext1', v) CALL instance%fix_external_set_virial_peratom('ext1', v)
CLASS DEFAULT CLASS DEFAULT
WRITE(0,*) 'UMM...this should never happen.' WRITE(error_unit,*) 'UMM...this should never happen.'
STOP 1 STOP 1
END SELECT END SELECT
END SUBROUTINE f_callback_bb END SUBROUTINE f_callback_bb