Skip to content

Commit 6baee40

Browse files
committed
Fix bugs
1 parent b759d7c commit 6baee40

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

src/fortran/lib/mod_misc_linalg.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ module raffle__misc_linalg
77
private
88

99
public :: modu, cross
10-
public :: get_distance, get_angle, get_dihedral_angle, get_area
10+
public :: get_distance, get_angle, get_dihedral_angle
1111
public :: get_improper_dihedral_angle
1212
public :: inverse_3x3
1313

@@ -49,7 +49,7 @@ pure function cross(a,b)
4949
implicit none
5050

5151
! Arguments
52-
real(real32), dimension(3), intent(in) :: a b
52+
real(real32), dimension(3), intent(in) :: a, b
5353
!! Input vectors.
5454
real(real32), dimension(3) :: cross
5555
!! Output cross product.

0 commit comments

Comments
 (0)