From 502a2d46b7ec035effa2ca2a87c0e89f055b1697 Mon Sep 17 00:00:00 2001
From: Giovanni Bussi <giovanni.bussi@gmail.com>
Date: Thu, 23 Jun 2011 09:16:19 +0200
Subject: [PATCH] Fix in command arguments

The previous fix for AIX breaks it on linux. I now use command_argument_counts()
which apparently is the standard way
---
 test/simplemd/simplemd.f90 | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/test/simplemd/simplemd.f90 b/test/simplemd/simplemd.f90
index 515975c12..f9623674e 100644
--- a/test/simplemd/simplemd.f90
+++ b/test/simplemd/simplemd.f90
@@ -55,8 +55,6 @@ logical :: has_parfile  ! a flag for the parameter file
 logical :: plumed
 integer :: plumedavailable
 
-integer, external :: iargc
-
 CALL plumed_installed(plumedavailable)
 
 plumed=.false.
@@ -66,7 +64,7 @@ IF(plumed) THEN
   CALL plumed_g_create()
 END IF
 
-argcount = iargc()
+argcount = command_argument_count()
 
 has_parfile=.false.
 do i=1,argcount
-- 
GitLab