Mailing-List: contact cygwin-help AT sourceware DOT cygnus DOT com; run by ezmlm List-Subscribe: List-Archive: List-Post: List-Help: , Sender: cygwin-owner AT sources DOT redhat DOT com Delivered-To: mailing list cygwin AT sources DOT redhat DOT com Date: Tue, 28 Aug 2001 09:03:42 -0400 From: Paul Dilip K NPRI Subject: Calling cygwin from MSVS6.0 Fortran program To: "'cygwin AT cygwin DOT com'" Message-id: MIME-version: 1.0 X-Mailer: Internet Mail Service (5.5.2653.19) Content-type: multipart/mixed; boundary=------------InterScan_NT_MIME_Boundary --------------InterScan_NT_MIME_Boundary Content-Type: multipart/alternative; boundary="----_=_NextPart_001_01C12FC1.DCE6A060" ------_=_NextPart_001_01C12FC1.DCE6A060 Content-Type: text/plain; charset="windows-1252" I am writing a dialog box based fortran program where I have several buttons and edit boxes for options to edit files, deleting files, plotting data using Matllab etc. Now I like to add another button for option to generate an input file. The file to make an input file is Unix script file which I ran successfully in CYGWIN environment using the tshell. I know to call Matlab I had to call their 'engOpen' routine. Is there anything similar in CYGWIN? A short routine is added below- retlog = DlgGet(dlg,IDC_COMBO1,edtdat) IF(edtdat .eq. 'Y') THEN call fopen END IF retlog = DlgGet( dlg, IDC_CHECK1, check ) if(check) then call fileopen end if call mainsub !start hfeam calculations !JD commented !call thfm !WRITE (text,*,iostat=retint) amtIF ( retint .eq. 0 ) THEN ! IF ( retint .eq. 0 ) THEN retlog = DlgGet(dlg,IDC_COMBO2,pltdat) IF(pltdat .eq. 'Y') THEN ep = engOpen('matlab ') if (ep .eq. 0) then write(6,*) 'Can''t start MATLAB engine' stop endif call engEvalString(ep, 'cd c:\dhfeam\hfeam') call engEvalString(ep, 'plothfeam'); I want to add something on top so that depending on the choice it will invoke the cygwin ( go to the directory-cygwin\home\pauldk) and execute the script file 'select' and generate the input file 'input.dat' and move it to (cd c:\dhfeam\hfeam or mv) and then the file can be edited using - IF(edtdat .eq. 'Y') THEN call fopen. Thanks Dilip K. Paul Naval Undersea Warfare Center Code 8121, Bldg. 679/2 Newport, RI 02841 Tel: (401) 832-1412 mailto:pauldk AT npt DOT nuwc DOT navy DOT mil ------_=_NextPart_001_01C12FC1.DCE6A060 Content-Type: text/html; charset="windows-1252"
I am writing a dialog box based fortran program where I have several buttons and edit boxes for options to edit files, deleting files, plotting data using Matllab etc. Now I like to add another button for option to generate an input file. The file to make an input file is Unix script file which I ran successfully in CYGWIN environment using the tshell. I know to call Matlab I had to call their 'engOpen' routine. Is there anything similar in CYGWIN? A short routine is added below-
 
  retlog = DlgGet(dlg,IDC_COMBO1,edtdat)                    
    
     IF(edtdat .eq. 'Y') THEN
       call fopen
       
  END IF
    retlog = DlgGet( dlg, IDC_CHECK1, check )
 if(check) then
 call fileopen
 end if
  
      call  mainsub   !start hfeam calculations         !JD commented
   !call thfm
      !WRITE (text,*,iostat=retint) amtIF ( retint .eq. 0 ) THEN
  
!     IF ( retint .eq. 0 ) THEN
        retlog = DlgGet(dlg,IDC_COMBO2,pltdat)
     IF(pltdat .eq. 'Y') THEN
  ep = engOpen('matlab ')
        if (ep .eq. 0) then
         write(6,*) 'Can''t start MATLAB engine'
         stop
        endif
   call engEvalString(ep, 'cd c:\dhfeam\hfeam')
         call engEvalString(ep, 'plothfeam');
 
I want to add something on top so that depending on the choice it will invoke the cygwin ( go to the directory-cygwin\home\pauldk) and execute the script file 'select' and generate the input file 'input.dat' and move it to (cd c:\dhfeam\hfeam or mv) and then the file can be edited using - IF(edtdat .eq. 'Y') THEN call fopen.
 
Thanks

Dilip K. Paul

Naval Undersea Warfare Center

Code 8121, Bldg. 679/2

Newport, RI 02841

Tel: (401) 832-1412

mailto:pauldk AT npt DOT nuwc DOT navy DOT mil

 
------_=_NextPart_001_01C12FC1.DCE6A060-- --------------InterScan_NT_MIME_Boundary Content-Type: text/plain; charset=us-ascii -- Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple Bug reporting: http://cygwin.com/bugs.html Documentation: http://cygwin.com/docs.html FAQ: http://cygwin.com/faq/ --------------InterScan_NT_MIME_Boundary--