[fluka-discuss]: Fw: Fw: Fw: question about cfortran.h

From: 关远帆 <guanyf_at_lzu.edu.cn>
Date: Mon, 18 May 2020 17:23:31 +0800 (GMT+08:00)

-----原始邮件-----
发件人: "关远帆" <guanyf_at_lzu.edu.cn>
发送时间: 2020-05-18 17:22:20 (星期一)
收件人: msantana_at_slac.stanford.edu
抄送:
主题: Fw: Fw: question about cfortran.h




-----原始邮件-----
发件人: "关远帆" <guanyf_at_lzu.edu.cn>
发送时间: 2020-05-18 17:20:04 (星期一)
收件人: Olivier.Couet_at_cern.ch
抄送:
主题: Fw: question about cfortran.h




-----原始邮件-----
发件人: "关远帆" <guanyf_at_lzu.edu.cn>
发送时间: 2020-05-18 17:07:34 (星期一)
收件人: burow_at_desy.de
抄送:
主题: question about cfortran.h

dear Sir:
May I ask how to run the example contain "cfortran"?
I have install cfortran,but compile of the example always error,such as:#error "cfortran.h: Can't find your environment among:\

the example is here:
/* easy.c */ /* anonymous ftp_at_zebra.desy.de */
/* An example from cfortran.h package. Requires easy_f.f */
/* Burkhard Burow burow_at_desy.de 1990 - 1997. */

#include <stdio.h>
#include <stdlib.h> /* EXIT_SUCCESS */
#ifndef EXIT_SUCCESS
#define EXIT_SUCCESS 0
#endif
#include "cfortran.h"


                  PROTOCCALLSFSUB2(EASY,easy, PINT, INT)
#define EASY(A,B) CCALLSFSUB2(EASY,easy, PINT, INT, A, B)

main() {
int a;
EASY(a,7);
printf("The FORTRAN routine EASY(a,7) returns a = %d\n", a);
return EXIT_SUCCESS;
}

//******************************************************************************************
C /* easy_f.f */ /* anonymous ftp_at_zebra.desy.de */
C /* An example from cfortran.h package. Requires easy.c */
C /* Burkhard Burow burow_at_desy.de 1990 - 1996. */

      subroutine EASY(a,b)
      implicit none
      integer a,b
      a = b
      return
      end


</stdlib.h></stdio.h></guanyf_at_lzu.edu.cn></guanyf_at_lzu.edu.cn></guanyf_at_lzu.edu.cn>


__________________________________________________________________________
You can manage unsubscription from this mailing list at https://www.fluka.org/fluka.php?id=acc_info

Received on Mon May 18 2020 - 13:17:52 CEST