Commit 4aa77d05 authored by ofgeorg's avatar ofgeorg

committed like suggested by Kevin Stratford

parent 58d03fa2
......@@ -23,9 +23,9 @@
IMPLICIT NONE
CHARACTER(LEN = 200),INTENT(IN) :: filename
REAL(MK), DIMENSION(m,n),INTENT(in) :: X
INTEGER, INTENT(in) :: m ! (3*LJ_N-6) dim vector
INTEGER, INTENT(in) :: n
REAL(MK), DIMENSION(m,n),INTENT(in) :: X
!local vars
REAL(MK), DIMENSION(m+6) :: X_full
......@@ -44,7 +44,7 @@
CHARACTER (LEN = 2 ) :: element
CHARACTER :: icode
INTEGER :: resno
REAL(8) :: occ
REAL(mk) :: occ
CHARACTER (LEN = 3 ) :: resname
CHARACTER (LEN = 4 ) :: segid
INTEGER :: info
......
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