1 #include "private/fortranimpl.h" 2 3 #if defined(PETSC_HAVE_FORTRAN_CAPS) 4 #define petscstrncpy_ PETSCSTRNCPY 5 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 6 #define petscstrncpy_ petscstrncpy 7 #endif 8 9 EXTERN_C_BEGIN 10 void PETSC_STDCALL petscstrncpy_(CHAR s1 PETSC_MIXED_LEN(len1),CHAR s2 PETSC_MIXED_LEN(len2),int *n, 11 PetscErrorCode *ierr PETSC_END_LEN(len1) PETSC_END_LEN(len2)) 12 { 13 char *t1,*t2; 14 int m; 15 16 t1 = s1; 17 t2 = s2; 18 m = *n; if (len1 < m) m = len1; if (len2 < m) m = len2; 19 *ierr = PetscStrncpy(t1,t2,m); 20 } 21 22 EXTERN_C_END 23