You have formatted the fortran code erroneously: 1) Correct your mistakes in the fortran code (look up how fortran files should be formatted) 2) Change the fortran format to fortran 90, this is easier as there are less restrictions on the formatting, if you do this, change the file ending to .f90 instead of .f, and be sure to only have Src/constr.f90 and not Src/constr.f in the directory.
2015-04-28 5:31 GMT+02:00 Nadia Salami <[email protected]>: > Dear users, > > In order to compile constr.f for my system, I follow Roberto's guidance. > So, I act as bellow: > 1. I have edited constr.f file which is attached. > 2. I copy it to */Src > > 3. when I type make in the Src directory to recompile Siesta, I have faced > to the following error: > > mpif90 -c -g -O2 `FoX/FoX-config --fcflags` ~/siesta-3.2/Src/constr.f > ~/siesta-3.2/Src/constr.f:27. > > double precision amass(na), cell(3,3), fa(3,na), > > Error: Invalid character in name at (1) > ~/siesta-3.2/Src/constr.f:28. > > . stress(3,3), xa(3,na) > 1 > Error: Invalid character in name at (1) > ~/siesta-3.2/Src/constr.f:34. > > & +fa(3,8)+fa(3,9)+fa(3,10)+fa( > 1 > Error: Invalid character in name at (1) > ~/siesta-3.2/Src/constr.f:35. > > & +fa(3,15)+fa(3,16)+fa(3,17)+ > 1 > Error: Invalid character in name at (1) > ~/siesta-3.2/Src/constr.f:36. > > & +fa(3,21)+fa(3,22)+fa(3,23)+ > 1 > Error: Invalid character in name at (1) > ~/siesta-3.2/Src/constr.f:37. > > & +fa(3,27)+fa(3,28)+fa(3,29)+ > 1 > Error: Invalid character in name at (1) > ~/siesta-3.2/Src/constr.f:40. > > & +amass(7)+amass(8)+amass(9)+ > 1 > Error: Invalid character in name at (1) > ~/siesta-3.2/Src/constr.f:41. > > & +amass(13)+amass(14)+amass(15) > 1 > Error: Invalid character in name at (1) > ~/siesta-3.2/Src/constr.f:42. > > & +amass(19)+amass(20)+amass(21) > 1 > Error: Invalid character in name at (1) > ~/siesta-3.2/Src/constr.f:43. > > & +amass(25)+amass(26)+amass(27) > 1 > Error: Invalid character in name at (1) > ~/siesta-3.2/Src/constr.f:45. > > fa(3,1) = fz * amass(1)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:46. > > fa(3,2) = fz * amass(2)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:47. > > fa(3,3) = fz * amass(3)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:48. > > fa(3,4) = fz * amass(4)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:49. > > fa(3,5) = fz * amass(5)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:50. > > fa(3,6) = fz * amass(6)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:51. > > fa(3,7) = fz * amass(7)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:52. > > fa(3,8) = fz * amass(8)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:53. > > fa(3,9) = fz * amass(9)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:54. > > fa(3,10) = fz * amass(10)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:55. > > fa(3,11) = fz * amass(11)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:56. > > fa(3,12) = fz * amass(12)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:57. > > fa(3,13) = fz * amass(13)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:58. > > fa(3,14) = fz * amass(14)/tmass > 1 > Error: 'fa' at (1) is not a variable > ~/siesta-3.2/Src/constr.f:59. > > fa(3,15) = fz * amass(15)/tmass > 1 > Error: 'fa' at (1) is not a variable > Fatal Error: Error count reached limit of 25. > make: *** [constr.o] Error 1 > > > > Also, I have attached arch.make file. > > I don't now how to get rid of it. Could you guide me to solve the error, > please? > > Thanks in advance, > > Regards, > > Nadia Salami > -- Kind regards Nick
