• 大小: 6.82MB
    文件类型: .rar
    金币: 2
    下载: 1 次
    发布日期: 2023-10-11
  • 语言: 其他
  • 标签: 地壳形变  GPS  

资源简介

本代码主要用于地球物理,大地测量,地震学等地学相关专业的源代码,资源含有所有的原代码和说明文件,在windos下,g95即可编译,在linux下gcc可编译。

资源截图

代码片段和文件信息

#include 
#include 
#include 
#include 
#include 

  // read a character from keyboard
  // written by David Hollinger 2009

int charavail_() {
  int cnt;
  int error;
  char c;
  char x;
  
  // get current state of the STDIN flags
  int flags = fcntl(STDIN_FILENO F_GETFL);

  // set STDIN to nonblocking
  fcntl(STDIN_FILENO F_SETFL flags | O_NONBLOCK);

  // see if we can read
  cnt = read(0&c1);
  // record errno before we reset STDIN
  error = errno;

  // figure out if there is data available
  if ((cnt==-1) && (errno==EAGAIN)) {
    // reset STDIN back to normal
    fcntl(0F_SETFLflags);
    return(0); // no data - just return 0
  }
  //  read the newline as well ignore errors etc.
  read(0&x1);
  fcntl(0F_SETFLflags);
  return(c);
}

/*
 test main().
  
int main() {
  int i;
  
  while (! charavail_()) {
    for (i=0;i<10000000;i++) ;
  }
  
  printf(“INTERRUPTED\n“);
  return(0);
}

*/

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件     568230  2014-12-12 03:06  src\ak_fault_database_faults.gmt

     文件    3244000  2009-08-21 05:17  src\ehb.gmt

     文件    5078434  2015-07-29 23:04  src\GCMT.gmt

     文件       1349  2012-07-28 04:16  src\kml.header

     文件       1168  2015-12-15 16:14  src\Makefile

     文件       1168  2015-08-08 07:45  src\Makefile.bak

     文件     113061  2015-02-19 04:40  src\PB2002_boundaries.gmt

     文件     211152  2008-05-15 20:13  src\plb_demets.gmt

     文件   11839811  2014-12-11 02:12  src\qfdata20081209.gmt

     文件       2544  2015-07-31 05:46  src\README

     文件      17217  2015-08-08 07:44  src\rwparms.f

     文件     138082  2015-12-15 16:14  src\rwparms.o

     文件      23667  2015-07-19 03:40  src\solve1.f

     文件      60859  2015-12-15 16:14  src\solve1.o

     文件        968  2015-02-19 04:39  src\tdefavail.c

     文件       2340  2015-12-15 16:14  src\tdefavail.o

     文件       4185  2015-08-08 02:06  src\tdefcom1.h

     文件        601  2012-06-27 00:27  src\tdefcom2.h

     文件      19098  2015-07-20 00:36  src\tdefcom3.h

     文件        691  2015-04-07 04:47  src\tdefcons.h

     文件       1579  2015-05-23 09:13  src\tdeffiles.h

     文件     858352  2015-08-08 07:45  src\tdefnode.f

     文件     127773  2015-07-31 03:39  src\tdefnode.html

     文件    5033311  2015-12-15 16:14  src\tdefnode.o

     文件       2079  2014-11-24 00:58  src\tdefnode_bugs.html

     文件      10400  2015-01-31 02:56  src\tdefnode_gmt.html

     文件      43872  2015-02-27 07:07  src\tdefnode_io.html

     文件       8703  2014-11-24 00:57  src\tdefnode_pubs.html

     文件      63321  2015-02-18 08:03  src\TDEFNODE_template.pdf

     文件      92715  2015-05-22 22:44  src\td_aki.jpg

............此处省略20个文件信息

评论

共有 条评论